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4654. SCR Dated 2/14/1987 Printed 
ኣኒ ATARI LORD SCREEN - EJA 6502 FORTH 6/12/84 d 
\ APPLE LOAD SCREEN - EJA 65XX FORTH 18 85/14/84 4 
ໄ 08064 LOAD SCREEN - EJA 65XX FORTH à. 82/03/84 65 
X COMMON EBUATES 8 
^ INITIALIZATION AREA iğ 
\ LIT PUSH PUT NEXT 07/30/84 12 
١ SYSTEM COLD START 14 
ໄ SETUP EXECUTE 16 
ໄ (LODP) Li Lë 18 
Y (DD). POPTWO POP eg 
ໄ EMOVE ea 
١ JACK HALLER'S U/ 4TH DIM. VOL. IV ۳ 24 
x XOR ວດສ 26 
ໄ ¿5 LEAVE ea 
x AY- AY+ D+ + - 35 
X ROT +! TOGGLE 32 
34 
X DIGIT 36 
ໄ (FIND) CONT. 81/24/84 38 
ໄ ENCLOSE CONT. 01/24/84 4% 
ໄ : CODE- DA DOES? CONSTANT VARIABLE USER (BUILDS 81/24/84 ë 
10123 BL C/L CRT-C/L DO-VOCABULARY 01/24/84 44 
ໄປເ -DUP +- ABS MIN MAX DECIMAL HEX +0RIGIN CFA 81/24/84 46 
ໄ LATEST TRAVERSE PFA HERE ALLOT و‎ E, CSP VOCABULARY 81/24/84 48 
ໄ M/HDD $ #5 (8 D+- DABS M/ /MOD / SPACE 52 
ໄ ?ERROÜR (NUMBER) NUMBER -TRAILING 02/27/86 52 
ໄ NULL CREATE INTERPRET QUERY ເ ገ] DEFINITIONS 81/25/84 5 
ໄ +00۳ UNTIL END AGAIN REPEAT 8/۵۸/84 56 
ໄ .R MOD ? FORGET ?LORDING VLIST ላ IFNO 81/24/84 5 
ໄ TYPEB ۵8۵ 81/25/84 > 
າໆ e 
ໄ CONT. 01/25/84 64 
ໄ CONT. 56 
68 
ໄ REVISION COLD TASK 07/26/84 8 
\ COMMON DISK 1/0 02/27/86 Fe 
ໄ CONT. 2/27/86 4 
ໄ CONT, 02/27/86 6 
ໄ COMMON USER DEFINITIONS 78 
Bà 
ໄ CONT. ፎ 
ໄ CONT. 5ዓ 
ໄ CONT. 85 
HERE LABEL SETCOMD 2 # LDY, ໄ FALLS THROUGH TO 08 
۱ CONT. : 
S (PRODUCT) V TERMINAL 1/0 32 
:5 94 
36 
38 
120 
182 
184 
X CONT, 146 
ໄ DISK-1/D 108 
\ 7ئ‎ (R/W) DRA DRI FORMAT (QUIESCE} 01/24/84 T 
i 
۱ "TERMINAL 1/0 ( 81/24/84 114 
X APPLE MISC. 81/26/84 118 
X APPLE EQUATES 03/23/84 T 


113 


37109/19387 i 


\ CONT. 
CONT. 

f. 
START Or B3XX KERNEL 
CONT. 
(:) (CONSTANT) (VAR) 
SYSTEM WARM START 
BRANCH BBRANCH 
{+LO0F) 
R RII J 
(Ux) Ur + 
AND OR 
Sp! 1 RP! i 
۶8 ክን ü= ፪( 
MINUS OVER DROP DUP SWAP 
8 كنا‎ ES. 
(DOES) 
(FIND) 
ENCLOSE 
DMINUS 
( 
=> PILL 
COUNT PAD (.") ty HOLD SIGN MODE iMODE EXPECT 
SMUDGE ?CDMP COMPILE LITERAL DLITERAL 
SPACES D.R D. . U. +BUF Me */MOD #/ 
?EXEC 215186014 BLANKS WORD -FIND NFA LFA ID. 
FORTH 
IF ELSE WHILE 2CSP ; 
ABORT (ABDRT) (BUIT? 
VECTORED WORDS 
COMMON EXTENSIONS 
> ( MSB LSB 
CONT. 


(USER)  NDOP 


8-)ມີ 


IMMEDIATE 4 [COMPILE] ' 


سے سے سے ሥ‏ سے መ”‏ سے ሖም‏ سے سے سے سے سے ሠ” መ”‏ ےر — ሠ” ሠ” መ”‏ سے سے ሠም ሠ”‏ سے سے سے ሠ” ሠሥ‏ سے سے መ”‏ 


ໄ CONT. 
X CONT. 


me 


C 

ATARI EDURTES 

ATARI 0154-10 
CONT. 

ATARI CID INTERFACE 
CONT. 


TERMINAL 1/0 display 
ATARI MISC. 


O >. . +” ເ” wë 


ໄ RWTS TABLE 
ໄ DISK VARIABLES ë CONSTANTS 
ໄ CONT. 


ໄ EDNT 
\ COMMODORE 64 EQUATES 


ےکر خا LEY‏ 


TYPE 


ERASE 7۲8185 BACK BEGIN THEN ENDIF DQ LDOP 
= WARM 


01784 
22/14/87 
02/27/86 
07/25/84 


02/27/86 
07/11/84 


21/24/84 
B1/24784 
22/27/86 

02/27/86 
82/27/86 
01/24/84 
22/27/86 
B2/27/86 

2/27/86 


( 13MAY83) 


82/27/86 
02/27/86 


84/24/84 


02/29/84 


21/24/84 
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Dated 2/14/1987 Printed 
SCREEN 4 i 
ໄ ATARI LOAD SCREEN - EJA 6562 FORTH 06/12/84 


۷ E-E DEFINITIONS 


ໄ ፤ TRRBET-WIDTH 4 MIN C-C TARGET-WIDTH FORTH y FORTH DEFINITION 


HEX  CROSS-COMPILE 
ໄ 722 723 DRG/IMG ላ SET THE TARGET ORIGIN AND 
ໄ CROSS-COMPILE TD MEMDRY. 
AP 3022 8 086/808 Y KERNEL ABOVE FLOATING PDINT 


ໄ 496 83 ORG/DB ໄ PUT LIT CFA AT ይይይ DB: IBM FILE 


188 EDU INIT-USER ۱ DEFINE USER AREA ADDRESS 
BFFF EGU EM \ END OF MEMORY 
١ En 188 RDM/RRM ໄ SET RAM START AND INITIALIZED 


ໄ RAM SIZE 
iF TARGET-WIDTH 


اچ 
7 


SCREEN # 3 
۱ APPLE LORD SCREEN - EJA BSXX FORTH 18 05/14/84 
: BELL 7 EMIT ۶ 
\ : PAUSE FLUSH PROF BELL [COMPILE] FORTH DECIMAL QUIT ; 
١ ELIMINATES HEADS!!! 


ላ ር 1 ፤ 9-7277 
HEX CROSS-COMPILE 
803 ۵ 4178 Y CROSS-COMPILE TO FILE. 


\ DEFINE USER AREA ADDRESS 
ໄ END OF MEMORY ike ERKE RAM LLE 


100 
FFFF 


EBU INIT-USER 
EGU EM 


iF TARBET-WIDTH 
->) 


SCREEN # > 


CBM64 LORD SCREEN - E/R 63XX FORTH 8 

HEX ` CRDSS-COMPILE 

380 4886 DRG/IMG ላ SET THE TARGET ORIGIN AND 
ໄ CROSS-COMPILE TO MEMORY. 

880 © 085/58 ໄ CROSS-COMPILE TO IBM FILE 

888 EQU INIT-USER 


ໄ DEFINE USER ARER ADDRESS 
۳۳۳3 EQU EM \ END OF MEMORY. { RESERVE 


82/09/84 


مې 


+“ 


3 VECTORS ) 


\ SET RAM START AND INITIALIZED 
ໄ RAM SIZE 


rënë 100 ROM/RRM 


موي 


1۳ TARGET-WIDTH 


`Ó 
a 


SCREEN + 7 
ໄ COMMON EQUATES 


CH EQU ABL ໄ AN ASCII BLANK 

aD EGU AER x AN ASCII CARRIAGE RETURN 
DE EQU ADOT \ANASEII. 

7D EQU BELL ໄ AN ASCII CONTROL 6 

en EQU LF ໄ AN ASCII LINE FEED 

ac EQU FFEED ۱ RN ASCII FORM FEED 

i EDU FIBREL ໄ FIG RELEASE NO. 

1 EQU FIGVER ١ FIG VERSION ND. 

0 EGU USRVER ላ USER VERSION ND. 


371971387 L = 


SCREEN # e 


سے 


DUNT. 
DECIMAL 88 Bi 


DECIMAL 7 7 
DECIMAL 8 42 
DECIMAL 77 78 
DECIMAL 71 75 HEX 
DECIMAL 43 68 HEX 
DECIMAL ba 67 HEX 


DECIMAL Ba 83 HEX 
DECIMAL 86 91 HEX THRU 
DECIMAL 92 92 HEX THRU 

ໄ APPLICATION LORD 
DECIMAL 69 69 HEX THRU 
IS-FENCE FINIS 


HEX THRU 


መ” 


THRU 
THRU 
THRU 
THRU 
THRU 
THRU 


THRU 


HEX 
HEX 
HEX 


መ” ,ሠ” سے‎ ሠ” መ” سے ہے‎ ሠ” ሠ” j, 


ወ 


SCREEN # 4 


ໄ CONT. 
DECIMAL 117 118 HEX THRU ۱ 
DECIMAL 7 7 HEX THRU ۱ 
DECIMAL 8 42 HEX THRU \ 
DECIMAL 77 78 HEX THRU ^ 
DECIMAL 71 75 HEX THRU H 
DECIMAL 43 Dë HEX THRU \ 
DECIMAL 62 67 HEX THRU \ 
DECIMAL 104 112 HEX THRU \ 
DECIMAL 113 114 HEX THRU ነ 
DECIMAL 115 115 HEX THRU \ 
ໄ APPLICATION LORD 
DECIMAL 69 69 HEX THRU \ 


ኣዞ IS-FENCE FINIS 
AT DECIMAL 188 LOAD-USING F:EXT 


SCREEN ٭‎ & 


ໄ FINIS ع58۷‎ CE-TEMP 





8 KESAX. SCR 


ATARI EBURTES 


COMMON EQUATES 
COMMON PRIMITIVES 
COMMON USER DEFINITIONS 
COMMON DISK 170 
COMMON HIGH LEVEL DEF 
COMMON EXTENSIONS 
ATARI SPECIFIC: 

DISK 1/0 

CIO + TERMINAL 

MISC 


COMMON COLD & TASK 


INITIDNS 


1/0 


22/81/84 
APPLE EBURTES 
COMMON EQUATES 
COMMON PRIMITIVES 
COMMON USER DEFINITIONS 
COMMON DISK I/D 
COMMON HIGH LEVEL DEFINITIONS 
COMMON EXTENSIONS 
APPLE DISK I/D 
APPLE TERMINAL 1/0 
APPLE MISC 


COMMON COLD & TASK 





ໄ CONT. 82/14/87 
DECIMAL 128 121 HEX THRU ໄ C-64  EBURTES 
DECIMAL 7 7 HEX THRU ໄ COMMON EQUATES 
DECIMAL 8 42 HEX THRU ላ COMMDN PRIMITIVES 
DECIMAL 77 78 HEX THRU \ COMMON USER DEFINITIONS 
DECIMAL 71 75 HEX THRU ላ COMMON DISK 1/0 
DECIMAL 43 68 HEX THRU ໄ COMMON HIGH LEVEL DEFINITIONS 
DECIMAL 62 67 HEX THRU ໄ COMMON EXTENSIONS 
DECIMAL 122 126 HEX THRU ໄ KERNAL CALLS 
DECIMAL 127 134 HEX THRU ໄ DISK 1/0 
DECIMAL 135 HEX LOAD \ DISPLAY 
DECIMAL 136 137 HEX THRU ໄ TERMINAL I/D 
DECIMAL 138 HEX LORD Y MISC x 
DECIMAL 69 HEX LORD ላ COMMON COLD 4 TASK 
DECIMAL 128 LDAD-USING لا‎ ۱ 


SCREEN +٭‎ 8 
ໄ START DF 65XX KERNEL 
\ PRIMARY ENTRY POINT FOR COLD 


ASSEMBLER 
NOP, CLD JEP, 


ໄ SECONDARY ENTRY POINT FOR A WARM START. 


X NOR, 
NOP, 
FORTH 


WRM JMD, 
CLD JMP, 





START 


82/27/86 








7 Zu 
Kat 


4657 . SUR Dated 


SCREEN ٭‎ 3 
\ INITIALIZATION AREA 


2/14/1987 


Printed 


FIBREL ہا‎ \ FIG RELEASE ND. 

FIGVER با‎ ໄ FIG VERSION NO. 

USRVER Û, ነ USER VERSION ND. 

BE Ë, ໄ IMPLIMENTATION ATTRIBUTES 


HERE LABEL INIT-FORTH 


0 
BSIN | ነ BACKSPACE CHARACTER 
INIT-USER ን, 
111-98 — , ነ PARAMETER STACK ADDRESS 8 
INIT-RË — , ໄ RETURN STACK ADDRESS RQ 
INIT-TIB — , ነ TERMINAL INPUT BUFFER ADDRESS 
ທູນ , ໄ NAME FIELD WIDTH IN BYTES 
0 , ໄ ERROR WARNING MODE 
SCREEN # 11 
\ LIT PUSH PUT NEXT 87/38/84 
CODE LIT IP ) LDA, PHA, IP INC, 8 IF, 
IP i+ INC, THEN, 
IP (٧ LDA, IP INC, 0= IF, 


IP 1+ INC, THEN, 


HERE LABEL PUSH DEX, DEX, 
HERE LABEL PUT 
HERE LABEL NEXT 

STA‏ +1 با 


BOT i+ STA, PLA, BOT STR, 
i # LDY, IP ۱۷ LDA, 
DEY, 


IP (۷ LDA, W STA, 


CLE, IP LDA, 


IP STR, 


CS IF, 


ວ + ADC, 


IP 1+ INE, THEN, 


W 1 - JMP, 
END-CODE 


HERE LABEL Wi-JMP 


SCREEN # 13 
X SYSTEM COLD START 
HERE LABEL ELDI J COLD E 


ASSEMBLER 


HERE LABEL CLD 
GC 8 LDA, ዘ 1 - 8 
18 ORIGIN + LDA, UP STA, 

11 ORIGIN + LDA, UP i+ STA, 

14 ORIGIN + LDA, TAX, TXS, 

12 ORIGIN + LDX, 

CEDi 8 100 ሀ/ 8 LDA, IP i+ STA, 
$ LDA, IP STA, 

NEXT JMP, 


FORTH 


SCREEN # 15 
\ SETUP EXECUTE 
ASSEMBLER 


NOB, NOP, NOP, 


\ FOR BRKPT 
۱ PATCH AREA 


INITIAL THREAD TO COLD 


ໄ STORE JUMP DP CODE 


<: 


-መ” سے‎ 


\ 


INITIRLIZE UP 


INIT RETURN STACK PDINTER 
INIT PARAMETER STACK POINTER 
INIT INTERPRETER POINTER 


ໄ EXECUTE COLD START 


HERE LABEL SETUP ¿A ກ. Ni STA, 
BEGIN, BOT LDA, 
NY STA, INX, INY, 
Ni - EPY, ሯ 
UNTIL, 8 $ LDY, RTS, 
FORTH 
CODE EXECUTE BOT LDA, W STA, BOT 1+ LDA, 
Wir STA, INX, IN, ዘ 1 - ዝፍ, 
END-CODE 


34719/1387 እ IE دد مک کر‎ SER 
SCREEN # ið 
ໄ CONT. 07/25/84 
HERE LABEL INIT-FENCE 
0 s ۱ FENCE ADDRESS FOR FORGETTING DICT. ENTRIES 
HERE LABEL INIT-DP 
0 v እ INITIAL DICTIONARY POINTER 
HERE LABEL INIT-VOC-LINK 
ü , ላ INITIAL VOCABULARY LINK 
HERE LABEL DBUG-LINK 
0 , VD DATA STRUCTURE LINK 
\ 188 NWIRE ASSUMES THIS IS ORIGIN + $22 


RE LABEL DBUG-Si 


1234 , ነ DBUG SIGNATURE IBM WIR ASSUMES ORG +24 
BASE-35 
6582, , و‎ \ CPU NUMBER AS A BASE 36 NUMBER. 
HEX 
SCREEN # lc 
ໄ {e} (CONSTANT) (VAR) (USER) NDDP 
ໄ ))); SSHOW'S EROSS-COMPILER REQUIRES DO-> & CODE-> PARTS (((( 
ໄ }}}} OF BUILDING WORDS TO PRECEDE ALL REFERENCES! (CQ 
CODE ໄ :) IP i+ LDA, PHA, IP LDA, PHA, ELE, NLD, 
ວ $ ADC, IP STA, TYR, Kit ADE, 
P i+ STA, NEXT JMP, END-CODE 
CODE (CONSTANT) 
e 8 LDY, ዘ (۷ LDA, PHA, INY, لا‎ ۱۷ LDA, 
PUSH JMP, END-CODE 
CODE (VAR) CLE, ዘ LDA, 2 8 ADC, PHA, TYA, W i+ ADC, 
PUSH JMP, END-CODE 
CODE (USER) 2 $ LDY, ELC, W )Y LDA, UP ADE, PHA, 
8 # LDA, UP i+ ADE, PUS SH ዝፍ. END-CODË 
SCREEN + 14 
X SYSTEM WARM START 0885 
:S (PRODUCT) 
ໄ INITIAL THREAD TO WARM 
hen LABEL Wami 3 WARM E 
HERE LABEL WRM 
ASSEMBLER 
WRMi LSB + LDA, IP STA, X INITIALIZE INTEPRETER POINTER 
(۷8۷ MSB # LDA, IP 1+ STA, 
؟‎ RP! JMP, \ BRING IT UP ! 
FÜRTH 
NSCR CONSTANT NSCR 
BUF1 CONSTANT BUF} 
SCREEN + 16 
۱ BRANCH BBRANCH 87/11/84 


CODE BRANCH CLE, IP (۷ LDA, iP ADE, 
PHA, INY, IP ۱۷ LDA, 
IP 1+ ADC, IP i+ STA, 
PLA, IP STA, NEXT 2+ JMP, 
END-CODE 


CODE QBRANCH INX, INX, FE , LDA, FF 


‚X DRA, 
1 BRANCH 1 @= NOT UNTIL 


HERE LABEL BUMP CLC, IP LDA, 2 # ADC, IP STA, CS 
TE 
t 3 
IP 1+ INC, THEN, 
NEXT JMP, 
END-CODE 














KOSXX. SER 





Dated 2/15/1337 Printed 


SCREEN 4 17 
ໄ (LOOP) L1 Lë 


CODE (LOOP) انت‎ STX, TSX, RP) INC, = 
d 
RP) 1+ INC, THEN, 
HERE LABEL Li CLE, RP) 2 + LDA, RP) SBC, 
RP) 3 + LDA, RP) i+ SBC, 

HERE LABEL L2 XSAVE LDX, .ስ ASL, 

1 BRANCH 1 CS UNTIL, 
PLA, PLA, PLA, PLA, 
BUMË JMË, 
END-CODE” 


SCREEN # 19 
\ {DD} POPTWO POP 


CODE (DD) SEC it LDA, FHA, 
SEC LDR, Dun, 
DOT 1+ LDA, BHA, 
BOT LDA, PHA, 
HERE LABEL POFTHO INX, INX, 
HERE LABEL POP INX, INK, NEXT JMP, 
END-CODE 
5 
SCREEN # 21 
ໄ CMOVE 


CODE (CMDVE) 8 8 LDY, ເ PLAY IT SAFE ) 
HERE BEGIN, N 4 + (۷ LDA, 
N CEY, Ge TF, 
N 1+ DEC, 2) IF, 
RTS, THEN, THEN, 
N 2+ ۷ر‎ STA, INV, 82 
UNTIL, NS IN, N3+ 
INC, “JMP, 
END-CDDE 


CODE CMOVE 
3 # LDA, SETUP JSR, ١ (CMOVE) JSR, NEXT JMP, END-CODE 


SCREEN $ 23 


ໄ JACK HALLER'S U/ 4TH DIM, VOL. IV ۵ 
CODE (ሀ/) N i+ BTY, 
SEC 2+ LDA, SEL LDY, SEC 2+ STY, „A ASL, SEC STA, 
SEC 3 + LDA, SEC 1+ LDY, SEE د‎ + STY, -A ROL, SEC i+ STA, 
18 E LDA, N STR, 
BEGIN, 
SEC et ROL, SEC 3 + ROL, N i+ ROL, SEC, SEC 2+ LDA, 
BOT SBC, TAY, SEG A + 1 LDA, BOT 1+ SBC, PHA, N 1+ LDA, 
à # 580, & # LDA, N + STA, PLA, 
LS IF, 
SEC 2+ STY, SEC 3 + STA, THEN, 
SEC ROL, SEC i+ ROL, لا‎ DEC 
ü= UNTIL, TNX, INX, à 3 LDY, RTS, END-CODE 


CODE U/ ' (U/) JSR, NEXT JMP, END-CODE 





3/15/1397 if — 24 KESXX. SCR 


SCREEN # 18 
ໄ GLDDP) 


CODE (+LODP) INX, INX, XSAVE STX, 
FF , LDA, PHA, PHA, 
FE ,፪ LDA, TSX, INX 
INX, CLC, RP) ADE, 
RP) STA, PLA, 

RP) 1+ ADC, RP) 1+ STA, 
PLA, Li 1 ስ( UNTIL, 

ELE, RP) LDA 

RD) 2+ SBC, RP) 1+ LDA, 
RP) 3 + SEC, Lë IMP, 
END-CODE 


SCREEN $ 24 


(RRIIJ 

CODE R XSAVE STX, TSX, 

HERE LABEL Ri RP) LDA, PHA, RP) 1+ LDA, 
XSAVE LDX, PUSH JMP, 
END-CODE 

CODE 1 ۲ R HERE 2 - ፤ END-CODE 


CODE ຽ XSAVE STX, TSX, RP) 4 + LDA, 
PHA, RP) 5 + LDA, XSAVE LDX, 
PUSH JMP, ' END-CDDE 





SCREEN # 22 


۱ (UE) Ut + 
CODE በ) 
SEC LDA, N STA, SEC STY, x 
SEC 1+ LDA, N 1+ STA, 
SEC 1+ STY, 18 8 LDY, BEGIN, | 
SEC ASL, SEC 1+ ROL, x 
BOT ROL, BOT 1+ ROL, CS IF, 
LE, NLDA, SEC ADC, SEL STA, 
N 1+ LDA, SEC + ADE, SEC 1+ STA, | 
CS IF, BOT INC, @= JË, BOT i+ INC, THEN, THEN, 
THEN, DEY, @= UNTIL, ATS, END-CODE 


CODE Us ۲ (Ua) JSR, NEXT JMP, END-CODE 
CODE + * (Ux) JSR, POP JMP, END-CODE 


SCREEN # 24 


١ AND 8٢ 

CODE AND BOT LDA, SEC AND, FHA, 
BOT i+ LDA, SEL 1+ AND, 
INX, INX, PUT JN, 
END-CODE 

CODE OR BOY LDA, SEC ORA, PHA, 
BOT 1+ LDA, SEC n DRA, 
INX, INX, PUT JMP, 
END-CODE 

5 





KE 


XX. SCR Dated 2/14/1987 Printed 
SCREEN # 25 

۱ XOR 8 

CODE XOR BOT LDA, SEC EOR, PHA, 
BOT 1+ LDA, SEC 1+ EOR, 
INX, INX, PUT JMP, 
END-CODE 

CODE SP& TXA, HERE LABEL 8 
PHA, 8 8 LDA, PUSH JNP, 
END-CDDE 

5 
SCREEN # 27 

N 46 LEAVE 

CODE ;3 ,قم‎ IP STA, PLA, IP i+ STA, 
NEXT JMP, 
END-CODE 

CODE LEAVE XSAVE STX, TSX, RP) LDA, 
RP) 2+ STA, RP) i+ LDA, 
RP) 3 + STA, XSAVE LDX, 
NEXT JMP, 
END-CODE 


ໄ RY- AY+ 
CDDE RY- 


CODE ۷+ 


CODE D+ 


SCREEN # 29 


D+ + - 
N STA, SED, ፀ ຈູ່ LDA, N SBC, PHA, N STY, à # LDA, 
N SBC, TAY, PLA, * hY+ JMP, END-CODE 
CLC, BOT ADC, BOT STA, TYA, BOT i+ ADC, BOT i+ STA, 
8 # LDY, RTS, END-CODE 


CLC, BOT 2 + LDA, BOT 6 + ADC, BOT 6 + STA, 
BOT 3 + LDA, BOT 7 + ADC, BOT 7 + STA, 
BOT LDA, BOT 4 + ADC, BOT 4 + STA, 
BOT 1 + LDA, BOT 5 + ADC, BOT 5 + STA, 
POPTWD JMP, END-CODE 


BOT i+ LDY, BOT LDA, INX, INX, 1 AY+ JSR, 
NEXT JMP, END-CODE 
BOT i+ LDY, BOT LDA, INX, INX, * AY- JSR, 
NEXT JMP, END-CODE 


SCREEN # 31 


ໄ ROT +! TOGGLE 


CDDE ROT 


CODE +! 


CODE TOGGLE 





SEC 2+ LDA, PHA, SEC 3 + ۱۷, 
SEC LDA, SEC 2+ STA, 

SEC 1+ LDA, SEC 3 + STA, 

BOT LDA, SEC STA, 

BOT 1 + LDA, SEC i+ STA, TYA, 
PUT JMP, END-CODE 


CLC, BOT X) LDA, SEC ADE 
BOT X) STA, BOT IN, ፀ= ፲፻, 


BOT 1+ INC, I 

BOT X) LDA, SEC 1+ ADC, 
BOT X) STA, POPTWO JMP, END-CODE 
SEC 1) LDA, 


BOT EDR, 
SEC X) STA,  POPTWO JMF, END-CODE 


5/15/1987 25 — 32 K6SXX. SCR 
SCREEN 4 26 
\ إعه‎ RP! 
CODE SP! — 86 8 LDY, UP )Y LDA, TAX, 
NEXT JMD. 
END-CODE 
CODE RP! ۰ XSAVE STX, 68 8 LDY, 
UP لا(‎ LDA, TAX, 115, 
XSAVE LDX, NEXT JMP, 
END-CODE 
5 
SCREEN # 28 
VOR ፳ን B= 8) 
CODE (8 BOT i+ LDA, PHA, BOT LDA, 
PHA, INX, INX, NEXT JMP, 
END-CODE 
CODE R} DEX, DEX, PLA, BOT STA, 
PLA, BOT i+ STA, NEXT JMP, 


END-CODE 
@#LDY, BOT LDA, BOT 1+ ORA, 
BOT 1+ STY, 8= IF, INY, 

THEN, BOT STY, NEXT JMP, 
END-CODE 
BOT 1+ ASL, ۲۷۵, .A ROL, 
BOT i+ STY, BOT STA, NEXT JMP, 
END-CODE 


CODE 87 


CODE Bi 


id 


SCREEN # 32 


١ MINUS DVER DROP DUP SWAP 
CODE MINUS SEC, TYA, BOT SBC 
BOT i+ STA, NEXT JMP, END-C 


CODE OVER SEC LDA, PHA, SEC i+ LDA, PUSH JMP, END-CODE 
CODE DROP POP HERE ລ - ۱ END-CODE 
CODE DUP BOT LDA, PHA, BOT it LDA, PUSH JMP, END-CODE 


Q TRRGET-WIDTH 
CODE (SWAP) 8 8 LDY, BOT LDA, SEC LDY, 
STY, BOT i+ LDA, 

BOT i+ STY, 


1۳ TARGET-WIDTH 
CODE SWAP 


SEC STA 
SEL 1+ LDY, 
RTS, END-CODE 


١ (SWAP) JSR, NEXT JMP, END-CODE 


SCREEN # Se 
V B Ce! ር! 
CODE & BOT X) LDA, PHA, BOT INC, 


Q= IF, BOT 1+ INC, THEN, 
BOT X) LDA, PUT JMP, END-CODE 


BOT X) LDA, BOT STA, 
BOT 1+ STY, NEXT JMP, END-CODE 


SEC LDA, BOT X) STA, BOT INC, 
8= IF, BOT it INC, THEN, 

SEC i+ LDA, BOT X) STA, 

POPTWO JME, END-CODE 


SEC LDA, BOT X) STA, 
POPTWO JMP, END-LODE 


CODE Ce 


CODE ! 


CODE ເ! 





BOT STA, TYA, BOT i+ SHË, 
ከ 


SEC 1+ ۸ 





A 


KOGSXX. SCR 


ໄ DIBIT 


CODE DIGIT 


ໄ (FIND) CONT. 


:5 (PRODUCT) 


ርጋ 


um 


ໄ ENCLOSE CONT. 


: S (PRÜDUET) 


Dated 2/14/1987 


SCREEN # 33 


SCREEN # 35 


SEC, SEC LDA, 
ል( NOT IF, 

8) NOT IF, 
BA 8 CMP, 
0) NOT IF, 
SWAP THEN, BOT CMP 

8) IF, SEC STA, 1 # LDA, 
FHA, TYA, PUT JWP, 

THEN, THEN, THEN, 

TYA, PHA, INX, INK, 

PUT. JMË, 

END-CODE 


30 4 SBC, 
BA 8 CMP, 
SEC, 87 8 SBC, 


SCREEN # 37 
01/24/84 
CS NOT 


BEGIN, 
8) UNTIL, 


PUSH JMP, THEN, 
IF, 2808۵ THEN, 
INY, N ) LDA, 


THEN, 


NLDA, SEE, 2 8 580, N STA, ໄ ۱۳۵8 for LFA-ahead 
N 1+ LDA, 8 4 SBC, N i+ STA, 8 # ۷, 

N )ໄ LDA, TAX, 

INY, NY LDA, N 1+ STA, 

N STX, NORA, @= UNTIL, 

XSAVE LDX, 8 8 LDA, PHA, 

PUSH JMP, 

END-CODE 


SCREEN 4 393 
21/24/84 


SEC 1* INC, 
NEXT JMP, 


THEN, THEN, 
THEN, SEC STY, 
INY, Gr IF, N 3 + INC, 
SEC 1+ INC, BOT 1+ INL, 
THEN, N CMP, @= UNTIL, 
BOT STY, NEXT JMP, 
END-CODE 


\ (DOES) 
CODE (DOES) IP i+ LDA, PHA, 


\ (FIND) 


ہے یي 5/15/1987 Printed‏ 


40 KESXX. SCR 


SCREEN # 34 


| , IP LDA, ይጢ 

2 4 LDY, ዘ )ሃ LDA, IP STA, 

INY, WY LDA, IP i+ STA, 

CLE, ዘ LDA, 4 4 ADL, PHA, 

ዘ 1+ LDA, 8 4 ADC, PUSH JMP, END-CODE 


SCREEN $ 36 


:S(PRODUCT) 
CODE (FIND) 


ໄ ENCLOSE 


ວ # LDA, SETUP JSR, 

XSAVE STX, BEGIN, ü # LDY, 
à, N 2+ ۱۷ EDR, 

, fe IF, BEGIN, 

INY, NY LDA, 

N 2+ (۷ EDR, ۰۵ ASL, 

d= IF, 25WAP CS UNTIL, 

XSAVE LDX, DEX, DEX, DEY, 

DEX, CLC, TYA, 3 # ADC, 

N ADC, SEC STA, 8 *٭‎ LDY, 

TYA, N 1+ ADC, SEC i+ STA, 

BOT i+ STY, NOY LDA, 

BOT STA, 1 # LDA, PHA, 


SCREEN # 38 


: 5 (PRODUCT) 
CODE ENCLOSE 


2 # LDA, SETUP JSR, TXA, 
SEC, 8 # SBC, TAX, 

SEC 1+ STY, BOT 1* STY, 
BEGIN, BEGIN, N 2+ DY 

LDA, N CMP, @= IF, 67 
INY, 8= UNTIL, N3 + 
INC, SEC 3 + INC, SEC 1+ 
INC, BOT i+ INC, 25889 
DROP JMP, THEN, BOT 4 + 
STY, BEGIN, N 2+ (۷ LDA, 
0 IF, SEL STY, BOT STY, 
TYA, BOT 4 + CMP, SIE 
SEC INC, @= IF, 


+ 
າ 


SCREEN # 4D 


١ DMINUS S-}D 


CODE DMINUS SEC, TYA, 


CODE 5-10 


MT? 


Cer 


SEL SEL, 
SEC SIA, TYR, SEL 1! SEL. 
SEC i+ STA, 


١ MINUS i+ JMP, END-CODE 
BOT 1+ LDA, 8( 


IF, DEY, THEN, 
TYA, PHA, PUSH JMP, END-CODE 





01/24/84 


ໄ PFA for LFA-ahead. 


01/24/84 








KOSXX. SCR 


Dated 2/14/1997 Printed 


SCREEN # 41 


ໄ : CODE-> DOJ) DOES? CONSTANT VARIABLE USER (BUILDS 01/24/84 
: S(PRODUCT) 

EJ ?EXEE 'CSP CURRENT 8 CONTEXT ١ CREATE ] CODE} ):( ; 
: CODE-> R? ü 2+ LATEST PFA CFA ! ፣ 

: DO-} R 8 2+ LATEST PFA ' CODE-> (DDES) ; 

: DOES) ຕ) LATEST PFA ١ CODE-> {DOES} ني‎ 

: CONSTANT CREATE SMUDGE , CDDE-> (CONSTANT) ነ 

: VRRIRBLE CONSTANT CODE) VAR) ; 

: USER CONSTANT CODE-} (USER) ; 

: (BUILDS ۵ CONSTANT ; 

ໄ BUILDER) 


SCREEN # 43 
١ 8 1 2 3 BL C/L CRT-C/L DÜ-VOCRBULRRY 


CODE 8 8 4 ເມດ, PHA, PUSH JMP, END-CODE 
CODE 1 1 4 LDA, PUSHAA JMP, END-CODE 
CODE 2 2 4 LDA, PUSHOA JMP, END-CODE 

3 CONSTANT 3 

4 CONSTANT 4 

8 CONSTANT B 


ሮይ CONSTANT BL 
AN CONSTANT L/L 
28 CONSTANT CRT-L/L 


81/24/84 


: DO-VOCABULARY A + CONTEXT ۲ و‎ \ Threads. 


SCREEN # 45 


-DUP +- ABS MIN MAX DECIMAL HEX 4ORIGIN CFA 
SEC LDA, BOT CMP, SEC i+ LDA, BOT i+ SBC, 
SEC 1+ STY, CS NOT IF, INY, THEN, 

INX, INX, BOT STY, NEXT JMB, END-CODE 


-DUP DUP IF DUP ENDIF ; 
+- 8) IF MINUS ENDIF ; 

ABS DUP +- ; 

MIN eDUP ( IF SWAP ENDIF DROP 
MAX 2DUP ( IF SWAP ENDIF DROP 


: DECIMAL 08 BASE ! ; 
: «ORIGIN ORIGIN +; 
: CFA ER 

9 (PRODUCT) 

: HEX 18 BASE ! ; 


N Ut 21/24/84 


CODE U( 


aa ຕສ wu ສກ‏ رې 


a. sw 


SCREEN $ ዱያ 
ໄ LATEST TRAVERSE PFA HERE ALLOT و‎ C, 
: HERE pP ው ; 


1 
:5 (PRODUCT) 
: LATEST CURRENT B 8 ; 
: TRAVERSE SWAP BEGIN OVER + 37۴ OVER CB ເ UNTIL 
SWAP DROP ; 


IESP VOCABULARY 81/24/84 


: ALLOT DE +: 3 

Sa HERE ' 2 RLLOT ; 
st HERE ር! 1 ALLOT ; 
፡ LSP Sre CSP ! ; 


: VOCABULARY 
CURRENT @ 2+ DUP 
DO-> DO-VOCABULARY ; 


(BUILDS HERE VOC-LINK ወ , VOC-LINK ! 
4+ 8881 , ( DUP, 4 + 8881 ,) 
X Threads. { Second thread) 


ቓ , ໄ Latest 
DROP 


7/10/1997 Al — 48 K65XX. SER 


SCREEN # 42 


` ( 
8 TARGET-WIDTH 
CODE (0 8 # LDY, SEC, SEC LDA, BOT SEC, 
SEC 1+ LDA, BOT 1+ SBC, SEC 1+ STY, VS 
IF, 88 8 EUR, THEN, 8) 
IF, INY, SEC STY, DEY, 
ELSE, SEC STY, THEN, 
INK, INX, RTS, END-CODE 
12 TARBET-WIDTH 
CODE ( ۲ (0 JSR, NEXT JMP, END-CODE 
CODE ስ8+ 8 8 LDY, ١ AY+ JMË, END-CODE 
CODE AG- 8 # LDY, ' AY- JMP, END-CODE 
CODE 1+ 1 8 LDA, ١ A+ JSR, NEXT JMP, END-CODE 
CODE i- 1 ቁ LDA, 1 Që- JSR, NEXT JMP, END-CODE 
CODE 24 2 # LDA, ' A+ JSR, NEXT JMP, END-CODE 
CODE 2- 2 8 LDA, ۱ AB- JSR, NEXT JWP, END-CODE 


SCREEN # 44 


ໄຂ) FILL 

8 TARGET-WIDTH 

CODE (=) 8 4 LDY, BOT 1+ LDA, SEC i+ CMP, SEC i+ STY, 
8= IF, BOT LDA, SEC CMP, ሠ IF, INY, THEN, THEN, 
INX, INX, BOT STY, RTS, END-CODE 

iF TARGET-WIDTH 

CODE = ፤ (=) JSR, NEXT JMP, END-CODE 

8 TARGET-WIDTH 

CODE ()) 1 (SWAP) JSR, ١ (0 JSR, RTS, END-CODE 

IF TARGET-WIDTH 

CODE > * 0) JSR, NEXT JMP, END-CODE 


: FILL OVER @ IF SWAP +R OVER Ci DUP i+ R i- EMDVE 
ELSE 208100 DROP THEN ነ 


SCREEN # 46 


N COUNT PAD (.") #) HOLD SIGN ۴ 
፡ COUNT ` DUB i+ SWAP CR: 


iMODE EXPECT TYPE 01/24/84 


: PAD HERE 44 + ; 

: ),"( R COUNT DUP i+ R) + )R TYPE ; 

: 8) DROP DROP HLD 8 PAD DVER - ; 

: HOLD -1 HLD +۱ HLD 8 اح‎ ; 

: SIGN ROT 8) IF 2D HOLD ENDIF ; 

: (MODE — I/O-MODE 8۱ 1 

\T : TYPE TYPED ; 

:S (PRODUCT) 

: ع00‎ I/ü-MODE i! ; 

: EXPECT — I/0-MÜDE 8 8- IF EXPECTO ELSE EXPECT! THEN ; 
TYPE 1/0-MODE 8 8= IF TYPED ELSE TYPE: THEN + 


SCREEN # 48 


N SMUDGE ?COMP COMPILE LITERAL DLITERAL 

9 (PRODUCT) 

: SMUDGE LATEST 20 TOGGLE ; 

: 200۲ STATE 8 Q- 11 TERROR y 

: COMPILE MOMP R) DUP 2+ (8 , 1 

: LITERAL STATE 8 IF COMPILE LIT , ENDIF ; IMMEDIATE 

: DLITERAL STATE 8 IF SWAP ECOMPILE) LITERAL 
[COMPILE] LITERAL ENDIF ; IMMEDIATE 


01/34/84 


K65XX. SER 


Dated 2/14/1987 


SCREEN # 49 


N M/MOD $ #8 (8 D+- DABS M/ /MDD / SPACE 
: M/MOD (8 û R ሀ/ ክን SWAP <8 U/ R): 
# BASE 8 M/MOD ROT 9 OVER ( IF 7 + ENDIF 38 + HOLD ; 
S BEGIN $ 2DUP OR 82 UNTIL ነ 
($ PAD HLD ۲ ; 
ENDIF ; 


D+- 0) IF DMINUS 
DABS DUP D+- 
M/ OVER 28 +R DABS R ABS ሀ/ R} R XDR سب‎ SWAP R} +- SWAP ; 
/WOD AN 5-1 RI M/ ; 

/ MOD SWAP DROP ነ 

SPRCE BL EMIT ; 


SCREEN # 51 


TERROR (NUMBER) NUMBER -TRAILING 02/27/86 
(NUMBER) BEGIN 1+ DUP IR Cü BOSE 5 DIGIT WHILE SWAP BASE 5 Lit 
DROP ROT BASE 8 Ux D+ DPL @ it IF DPL i+! ENDIF R) REPEAT 


RF: 
-TRAILING DUP 8 DO OVER OVER + 1 - CB BL - IF LEAVE 
ELSE 1 - THEN LOOP ; 
: TERROR SWAP IF ERROR ELSE DROP THEN ; 
5 (PRODUCT) 
: NUMBER ( ADDR --ን DBL-NUMBER ) ໄ Recognizes $... 
BASE 8 YR DUP 1+ CB 
ASCII $ = IF 1+ HEX THEN 
à à ROT DUP i+ DB 2D = DUP IR + -1 BEGIN DAL ! 
(NUMBER) DUP CE BL - WHILE DUP ເຈ 2E - ۵ 328808 8 REPEAT DROP 
A) IF DMINUS THEN D BASE ! ; 


ir 


R5 HEX 


SCREEN $ 33 


X NULL CREATE INTERPRET BUERY ເ 1 DEFINITIONS 01/24/84 
35 (PRODUCT) 
: X BLK 8 IF BLK i+! IN Q' BLK ອ B/SER 1 - AND dz IF ?EXEC 
R? DROP ENDIF ELSE R? DROP ENDIF ; IMMEDIATE I5-X 
: CREATE -FIND IF DROP NFR 1D. 4 MESSAGE SPACE ENDIF 
HERE CE WIDTH 8 MIN AN ( # chars ) 
HERE @A@ TOGGLE HERE R + Wu TOGGLE 
HERE DUP 2+ R i+ (CMOVE 
HERE 2+ CURRENT @ DUP 2- 
R ' HERE R} ! 
R) i+ ALLOT HERE 24 SCH | 
: INTERPRET BEGIN -FIND IF STATE 8 ( IF CFA و‎ ELSE CFA EXECUTE 
ENDIF ?STRCK ELSE HERE NUMBER DPL @ i+ IF [COMPILE] DLITERAL 
ELSE DROP [COMPILE] LITERAL ENDIF 2618604 ENDIF AGAIN ; 


( smudge, delimit) 

{ move entry down to insert LFA) 

IR ) TH.HASH) DUP IR رق‎ ላ LFA. 
ໄ LatestNFA & Link. 


SCREEN # 59 


X ጧዐዐዞ UNTIL END AGAIN REPEAT 

:S (PRODUCT) 

: HOOP 3 7۶81858 COMPILE (+LOOP) BACK ; IMMEDIATE 

: UNTIL 1 788185 COMPILE QBRANCH BACK ¢ IMMEDIATE 

: END [COMPILE] UNTIL ; IMMEDIATE 

: AGAIN ነ 780185 COMPILE BRANCH BACK ; IMMEDIATE 

: REPEAT (8 (8 LCOMPILE] AGAIN R) Ry 2 - CCOMPILE] ENDIF و‎ 
IMMEDIATE 


01/24/84 





Printed 





32/15/1987 43 - 56 K6G5XX. SER 


SCREEN 4 564 
ໄ SPACES D.R D. . .لا‎ +BUF Ke KJMOD &/ 


: SPACES @ MAX -DUP IF 8 DO SPACE LOOP ENDIF ; 
: D.R IR SWAP OVER DABS (8 #5 SIGN 8) R) OVER - SPACES TYPE ; 
: D. 0 D.R SPACE ; 
Eu ل‎ 
: U. "on ፣ 
: Me 2DUP XOR )8 ABS SWAP ABS Ux R} De; 
: #/800 IR ۷۶ R) ዘ/ 5 
፡ #/ */MOD SWAP DROP ; 
: +BUF HDBT + DUP LIMIT = IF 
: GLPRODUET) 


82/27/86 


DROP FIRST THEN DUP PREV 8 - ; 


SCREEN # 32 


ໄ ?EXEC کل‎ BLRNKS WORD -FIND NFA LFR ID. 8285 
: BLANKS BL FILL ; 
፡ STACK SPE 50 ë SWAP )نا‎ 1 328808 SPE 28 7 
228808 ; 
;8 (PRODUCT) 


: JEXEC STATE فا‎ 12 TERROR 

WORD BLK 8 IF BLK 8 BLOCK ELSE TIB ወ ENDIF IN ይ + SWAP 
re ce BLANKS IN +! OVER - +R R HERE C! + HERE i+ 
-FIND BL WORD HERE CONTEXT të B (FIND) DUP ë= IF DROP HERE 
LRTEST (FIND) ENDIF ; 

NFA 3 - -1 TRAVERSE ; X LFB-ahead. 
2 LFA NFA 2 - : X LFA-ahead. 
ID. PRD 8 SË FILL DUP PFA CFA OVER - 
PAD COUNT ir AND TYPED SPACE ; 

PFA 1 TRAVERSE 3 + : 1 LFA-ahead. 


PAD SWAP 
X LFR-ahead. 


CHOVE 


SCREEN # 54 


\ FORTH ERASE ?PRIRS BACK BEGIN THEN ENDIF DO LOOP 
VOCABULARY FORTH IMMEDIATE 

: ERASE @ FILL ; 

: DEFINITIONS CONTEXT à CURRENT ۲ ; 
;S(PRODUCT) 

: IPAIRS - 3 TERROR 5 

BACK H 

BEGIN COMP HERE 1 ; IMMEDIATE 

THEN COMP 2 700185 HERE OVER - SWAP ! 
ENDIF ICOMPILEI THEN ; IMMEDIATE 
DO COMPILE (DO) HERE 3 ; IMMEDIATE 
LOOP 3 7808185 COMPILE (LOOP) BACK ; 
QUERY TIB 8 58 EXPECT IN 8۱ ; 

STATE di ; IMMEDIATE‏ ع 

: 3 CO STATE ۱ ፲ 


825 


; IMMEDIATE 


IMMEDIATE 


SCREEN 4 56 


۱ IF ELSE WHILE ?CSP + IMMEDIATE ( [COMPILE] 1 ." WARM 81/24/84 


:5 (PRODUCT) 

: IF COMPILE QBRANCH HERE Q و‎ © 3 IMMEDIATE 

ELSE 2 , PAIRS COMPILE — HERE ۵ و‎ SWAP 2 [COMPILE] 
ENDIF 2 ሮ ፤ IMMEDIATE 


WHILE ECOMPILEI IF 24 ፤ IMMEDIATE 
OCSP SPB ضیح‎ 8 - 14 712 


: ; ICSD COMPILE ;9 SMUDGE tcv E ; IMMEDIATE 

: IMEDIATE LATEST 40 TOGGLE ; 

፡ ( 29 WORD y IMMEDIATE 

: COMPILE] "FIND 0= @ "ERROR DROP CFR, ; IMMEDIATE 


ه١‎ -FIND We ۵ ?ERROR DROP [COMPILE] LITERAL ; IMMEDIATE 

, " 22 STATE @ IF COMPILE (.") WORD HERE CE 1+ ALLOT ELSE 
WORD HERE COUNT TYPE ENDIF ; IMMEDIATE 

: WARM EMPTY-BUFFERS ABORT ; 


HOSXX.S5ULR Dated 2/14/1987 Printed 
SCREEN # 57 
N .R MOD ? FORGET ?LDADING MIDI ላ IFNDT IFSO FIND — 01/24/84 


oR OR BD RE DR:‏ ؛ 
MOD /MOD DRÜP ;‏ : 
A i 0‏ 


: የ088፻ፕ "CURRENT ይ CONTEXT ወ - 18 TERROR [COMPILE] * DUP FENCE 
ë ( 15 ?ERRDR DUP NFA DP ؛‎ LFA ይ CURRENT ë ۲ ; 

: 710801868 BLK 8 Q= 16 129808 ነ 

: VLIST 88 OUT ١ CONTEXT 8 8 BEGIN ERT-C/L OUT 8 ~ OVER Cü iF 
AND 4 + ( IF CR OUT @! THEN DUP ID. SPACE SPACE PFA LFA 8 
DUR Ve TERMINAL OR UNTIL DROP ; 

VIN 8 C/L /MOD SWAP 0) IF 1+ THEN C/L 5 IN ፤ ; IMMEDIATE 
IFNOT IF LCOMPILE] \ THEN ; IMMEDIATE 

1250 @= [COMPILE] IFNOT ; ' IMMEDIATE 

IF IND oF IND IF 2DROP TRUE ELSE FALSE THEN ፣ IMMEDIATE 

\ BUILDER) 


SCREEN # 9 


\ TYPEB EXPECTO 
à TARGET-WIDTH 


: VARIABLE 170-MODE 
: TYPEB -DUP IF OVER + SWAP DO 1 CB EMIT LOOP ELSE DROP THEN ; 
;8 (PRODUCT) 
: EXPECT@ OVER + OVER DO KEY DUP BE «ORIGIN ወ = IF DROP DUP I = 
DUP R 2 - + }R IF BELL ELSE BSOUT THEN ELSE DUP 8D > IF 
LEAVE DRDP BL ወ ELSE DUP THEN RC! ຕ 1+ BI THEN EMIT 
LOOP DROP ፣ 


iF TRRGET-WIDTH 


21/24/84 


SCREEN # 61 


SCREEN # 63 
x CONT. 01/24/84 
ኣቦ 3 ລສ DUD 2 + 8 SWAP 8 ; 
ኣቦ 4 2! 2DUP ۱ 24 SWAP DROP ! ; 
: ኃ5ዘ6ሁ ROT 18 ROT R) ; 
CODE app SEC LDA, SEC i+ LDY, 
' OVER JMP, END-CODE 
CODE 7 INX, INX, INX, INK, 
1 (0 JSR, ' Be JMË, 
t (=) JSR, ' Qe JMË, 


۱ 0) JSR, ° جھ‎ JMP, 
0 # LDY, BOT 1+ LDA, 
Q- NOT IF, INY, 
"NEXT JMP, END-CODE 
: DEPTH 596 58 5 SWAP - 2/ 8 MAX ; 


DEX, DEX, BOT STA, BOT 1+ STY, 


NEXT JMP, END-CODE 
END-CODE 
END-CODE 
END-CODE 
BOT i+ STY, 
THEN, THEN, 


0) NDT IF, 


3/15/1987 من‎ — ይዳ KESXX. SCR 


SCREEN ٭‎ 58 


X ABORT (ABORT) (BUIT) 82/27/86 
8 TARGET-WIDTH 
: (QUIT? 

AT NODE 3 

AP BLA ü! [COMPILE] L BEGIN CR RP! QUERY INTERPRET 

AP STATE 8 @ IF ." DK" THEN AGAIN : 
1۳ TARGET-WIDTH 
: (ABORT) ABORT ; 

: ABORT SP! DECIMAL ISTACK ( „TITLE ) 

[COMPILE] FORTH DEFINITIONS QUIT ; 
75 (PRODUCT) 

SCREEN # 64 
ໄ VECTORED WORDS 820856 
፡ KEY AP (KEY) ፤ ١ FÜR KERNEL 
AT WOOP ፣ ላ FOR PRODUCT 
: EMIT (EMIT) 3 
: GUIT (QUIT) ¢ 
: ER (08) ; 
: ERROR (ERROR) : 
:5 (PRODUCT) 
፡ ?TERMINRL (ITERMINAL) ; 
SCREEN $ 62 

\ COMMON EXTENSIONS 02/27/86 


1 CONSTANT TRUE 
à CONSTANT FALSE 
CODE 3+ BOT ASL, BOT i+ ROL, NEXT JMP, END-CODE 
CODE 27 CLC, BOT 1+ LDA, 8) IF, SEC, THEN, BOT i+ ROR, BOT ROR, 
NEXT JMD, END-CODE 
: WITHIN ROT IR R >= SWAP R) (= AND ; 
: PICK 24 858 + Bo; 
: ከዐ ; 
: ROLL i+ DUP PICK SWAP SLIP ; 
:5 (PRODUCT) 
: ASCII BL WORD HERE 1+ ርይ STATE 8 
IF COMPILE LIT , THEN ; IMMEDIATE 


SCREEN # 64 


N ን ( MSB LSB 

CODE ) ( (AB -- BA) ላ SWAP BYTES IN TOP OF STACK ) 
BOT LDA, BOT i+ LDY, BOT STY, BOT i+ 810, 
NEXT JMD, END-CODE 


CODE MSB 
BOT 1+ LDA, BOT STA, 
HERE LABEL (LSB) 
TVA, BOT 1+ STA, NEXT JMP, END-CODE 
CODE LSB (LSB) HERE 2 - ١ END-CODE 
ፀ TARGET-WIDTH 
CODE (8) 8 8 LDA, DEX, DEX, BOT STA, BOT 
RTS, END-CODE if TARGET-WIDTH 
١ 1 (0) JSR, t {SWAP} JSR, ° ؛‎ JMP, 
ا‎ 1 (D) TËR” BOT INC, ፤ (SWAP) JSR, ' i JMP, 
CODE i+! ١ (0) JSR, BOT IND, * (SWAP) JSR, ۱ +! JMP, 


1+ STA, 


END-EDDE 
END-CODE 
END-CODE 





HESXX. SER Dated 2/14/1987 Printed 3/15/1987 Ba = fo KESA -SCR 


SCREEN # 65 SCREEN + 66 
\ CONT. N CONT. ( 87 
CODE ((CMOVE) CODE SLIP m 
N 2+ 8 LDX, XSAVE STX, BOT DEC, BOT LDA, .A ASL, N STA, TXA, N ADC, 
NLDA, N 1+ LDY, ' AY+ JSR, INX, INX, TAX, INX 
N LDA, N 1+ LDY, 1 ۵۷+ JSR, TYA, CLC, N SBC, N STA, BEGIN, BOT LDA, SEC STA, DEX, XSAVE CPX, O= UNTIL, 
HERE N 3 + DEC, N 5 + DEC, POPTWD JMP, END-CODE 
BEGIN, DEY, N CPY, @= 
IF, N 1+ DEC, 8) 


IF, RTS, THEN, THEN, 
N 4 + )Y LDA, N 24 )Y STA, 8 # CRY, عق‎ 
UNTIL 
JMP, END-CODE 


CODE (EMOVE 
A # LDA, SETUP JSR, XSAVE STX, 
١ (MOVE) JSR, XSAVE LDX, NEXT JMP, END-CODE 


SCREEN # 67 SCREEN # 68 
SCREEN # 693 SCREEN # 7 
\ REVISION COLD TASK 97/25/84 


à TARGET-WIDTH 


ኣዞ ፤ REVISION ." 65XX FORTH VERSION 2.0 26 JULY 84" ER 
AB ." COPYRIGHT 1984 (ር) ELECTRONIC ARTS" CR | 
iF TRRBET-WIDTH 


: COLD INIT. MACHINE 
VI GMODE 
ኣዞ ع1800‎ 0808 EMPTY-BUFFERS FIRST USE ! FIRST PREV ! 
12 *ÜRIGIN UP 8 6 + 18 CHOVE 
ፀር +DRIGIN E * FORTH 6 + ! ໄ LATEST as of last FREEZE 


ABORT ; 
;8 (PRODUCT) 
ع‎ TASK 5 ۱ IS-FENCE FINIS 
SCREEN # 71 SCREEN # 72 
ໄ COMMON DISK 10 8865 ໄ CONT. 827856 
0 VARIABLE USE X SECTOR BUFFER ADDRESS : ግመት: vd ; 
8 VARIABLE PREV — X POINTER TO PREVIOUS BUFFER :8 (PRODUCT) 
ሀ VARIABLE DISK-ERROR 14 CONSTANT 7 
KBBUF CONSTANT B/BU- ໄ BYTES/DISM BUFFER 
KBBUF BPS / CONSTANT SEC/BLK ۱ SECTORS/DISK BUFFER „LINE (LINE) -TRAILING nl 
400 KBBUF / CONSTANT B/SCR ላ DISK BUFFERS/SCREEN : : MESSAGE WARNING & IF -DUP IF MSGSCR OFFSET ë 8/5۳8 / - „LINE 
BUF 1 CONSTANT FIRST A POINTER TO FIRST BUFFER SPACE THEN ELSE ." ዘ568 " . THEN ; 
EM CONSTANT LIMIT \ USABLE MEMORY LIMIT : LIST CR DUP SER ! ۰۳ SCR ۷۷ . 18 à DO CR 3 .8 
75 (PRODUCT) SPACE R SCR @ „LINE ?TERMINRL IF LEAVE ENDIF LOOP CR ; 


INDEX CR it SWAF DO CR 1 3 .R SPACE à 1 LINE 
TERMINAL IF LEAVE ENDIF LOOP ; 














HOSXX. SCR 


Dated 2/14/1987 Printed 


SCREEN # 73 


CONT. 02/27/86 
(EMPTY-BUFFERS) FIRST LIMIT OVER - ERASE (DUIESCE) ; 

(BUFFER? USE 8 DUP ነጸ +BUF DROP USE ۲ R 5 2) 

IF R ë+ R B 7FFF AND ۵ ክ/ዘ THEN 

ዘ: R PREV ١ ຕຖ) ວ+ 3 

: (ERROR) WARNING 8 8) IF (ABORT) THEN HERE COUNT ۵ 


ຕະ ພ e" 


+ 3 “ MESSAGE SP! BLK 8 -DUP IF IN 8 SWAP THEN QUIT ; 

:۵ (PRODUCT) 
: (LORD) BLK 8 (8 IN 8 8 IN ۵۱ BLK! 

SPOT)". 8. - INTERPRET RINI ከዘ) DK I 
دو‎ ¿LOADING IN ۵ BLK i+! 

" c" BLK 8 . $ IMMEDIATE 

: THRU i+ SWAP DO 1 LOAD LOOP ; 
ይ TARGET-WIDTH 
: ((LINED) ንዘ CAL B/BUF */MOD ຕ) B/SCR # + BLOCK + C/L ; 
ໄ ### ABOVE NOW SUPPORTS AS FEW AS ONE BUFFER 1 


SCREEN # 75 


\ CONT. 02/27/85 
: R/W (R/W ې‎ 
: BLOCK (BLOCK) ; 
: 71 (BUFFER) ; 

: EMPTY-BUFFERS (EMPTY-BUFFERS) ; 

:5 (PRODUCT) 

: LORD (LOAD) ; 
: (LINE) (LINE) ; 
: UPDATE (UPDATE) ; 
: FLUSH (FLUSH) ; 

SCREEN # 77 

X COMMON USER DEFINITIONS 
32 EDU US ۱ SIZE OF USER AREA 


INITIAL PARAMETER STACK POINTER 
INITIAL RETURN STACK POINTER 
ADDRESS OF TERMINAL INPUT BUFFER 
MAXIMUM NAME FIELD WIDTH 

ERROR WARNING MODE FLAG 

BARRIER FOR FORGETTING 

DICTIONARY POINTER 

LINK POINTER TO LATEST VOCABULARY 
POINTER TO BLOCK BEING INTERPRETED 


@6 USER SQ \ 
88 USER RB \ 
۵8 USER 8 \ 
QD USER WIDTH \ 
DE USER WARNING ١ 
18 USER FENCE \ 
12 USER DP ۱ 
14 USER VOC-LINK \ 
16 USER BLK \ 


SCREEN # 79 








3/13/1987 ໃສ = OM KGSAX. SER 


SCREEN # 74 


\ CONT. 82/27/86 
(BLOCK) OFFSET B + (8٨ PREV 8 DUP B R - DUP + 
IF BEGIN +BUF @= IF DROP R BUFFER DUP R 1 R/W 5 — THEN 
DUP 8 R - DUP + 8= UNTIL DUP PREV ۱ THEN R) DROP جح‎ 
DISK-ERRÜR فا‎ -DUP IF 

" DISK ERROR " DISK-ERROR Q: (ABORT) 

(FLUSH) (FLUSH) EMPTY-BUFFERS ; 

: (UPDATE) PREV @ 8 8808 DR PREV 8 ! - 

iF TARGET-WIDTH 


ໄ BRUCE WALKER'S FLUSH. FORTH DIMENSIONS VOL. IV, ND. 
ໄ LEAVES BUFFERS VALID AFTER FORCING TO DISK 
: (FLUSH) FIRST NSCR à DO 
DUP ü ፻( IF DUP E 7FFF AND OVER ۲ DUR 24 OVER B Y R/W THEN 
5/8ህዮ 4 + + LOOP DROP ; 
:S (PRODUCT) 


THEN ; 


e, P. 30 


SCREEN # 76 


SCREEN # 78 


X CONT. 
18 USER IN X OFFSET INTO TEXT BEING INTERPRETED 
iñ USER DUT ໄ DISPLAY CURSOR POSITION 


iC USER SCR ໄ POINTER TO SCREEN BEING EDITED 


1E USER OFFSET \ BLOCK OFFSET TO DISC DRIVES 
cë USER CONTEXT A POINTER TO VODABULAY SEARCHED FIRST 
ຂວ USER CURRENT X POINTER TO VOCABULARY SEARCHED SECOND 
24 USER STATE ໄ COMPILATION STATE 
eb USER BASE X NUMERIC BASE FOR INPUT AND DUTRUT 
28 USER DPL ໄ DECIMAL POINT LOCATION FOR DOUBLE NUMBERS 
ER USER FLD X DUTPUT FIELD WIDTH 
ፎር USER CSP X HOLDS STACK MARKER 
CE UBER Ra X CURSOR POSITION DURING EDITING 
X 


30 USER HLD POINTS TO LAST CHARACTERS HELD IN PAD 


SCREEN # ይጋ 
X ATARI EBURTES 


\ ZERO PAGE ASSIGNENTS ( «WORKS WITH FLOATING POINT: ) 
AUF EQU 111-59 ໄ INITIAL PARAMETER STACK. 


005 EQU N X ZERO PAGE WORK SPACE ) OVERLAPS FPA, FRI) 
H EDU IP \ INTERPRETER POINTER. 

002 EGU W X WORK REGISTER, CONTAINS CODE FIELD POINTER, 
0084 EGU UP ໄ USER POINTER 


@D@ EDU XSAVE ١ STORAGE SPACE FOR (X). 


132 EDU INIT-TIB V INITIAL TERMINAL INPUT BUFFER. 
1FF EQU 1811-88 ١ INITIAL RETURN STACK. 


38 EQU EDL ໄ END OF LINE CHR RETURNED BY CIO 
7E EQU BSIN \ BRCASPACE CHARACTER RETURNED BY KEY 
E EBU BSDUT ١ " " SENT BY EMIT 





BINE MGE | 








HOSXX. SER Dated 2/14/1987 Printed 
SCREEN # Gi 
\ EDNT. 
12 EQU 1 ໄ SECTORS/ TRACK 
ວນທີ່ EGU SPDRVI ໄ SECTORS/DRIVE 
80 EQU 5 X BYTES/SECTOR 
d EBU DBH ໄ SHE OF BUFFER HEAD 
40% EGU KBBUF ໄ SIZE OF BUFFER 
e EQU DET \ SIZE OF BUFFER TAIL 
2 EDU NSCR X NO. OF RESIDENT SCREENS 


DBH KBBUF DBT + + EGU HDBT 
NSCR 400 + KBBUF / EDU NBUF 
EM HDBT NBUF * - EDU BUFI 


HERD + BUFFER + TRIL 
NO. DF DISK 5 
ADDRESS OF FIRST DISK BUFFER 


سے መ”‏ سے 


SCREEN # 83 


\ CONT. 
H TARGET-WIDTH 


CODE SECRD 52 8 LDA, 302 STA, 48 # LDA, 303 STA, 
SECLN+DISK-1/0 JMP, END-CODE 


CODE SECWT ١ PTEM LDA, 302 STA, 88 4 LDA, 303 STA, 
SECLN+DISK-1/0 JMË, END-CODE 

78 (PRODUCT) 

: (DUIESCE) : ነ NOTHING SPECIAL TO DO AFTER EMPTY-BUFFERS 

iF TARGET-WIDTH 


088 OFFSET 8! ፤ 
081 SA OFFSET ! y 


SCREEN # 85 


\ CONT. 
۵ TARGET-WIDTH 
፡ (R/W) ንጽ SEC/BLK + SPDRVI /MOD DRIVE ! SEC/BLK R R/W-SECS ; 


1F TARGET-WIDTH 


SCREEN # 87 


HERE LABEL SETCOMD 2 8 LDY, ላ FALLS THROUGH TO 2 
HERE LABEL SETIOB BOT LDA, N ۱۷ STA, INX, INX, RTS, 
HERE LABEL SETBUFF 4 # LDY, ነ FALLS THROUGH TO 28 
HERE LABEL 2821108 BOT LDA, N ۱۷ STA, INX, INY, 

BOT LDA, N ( STA, INX, RTS, 


HERE LABEL SETAUX] GA 8 LDY, SETIOB JMP, 
RE 


HERE LABEL SETRUX2 ØB 8 LDY, SETIOB JMP, 
FORTH 

:5 (PRODUCT) 

ASSEMBLER 

HERE LABEL SETLENG 8 8 LDY, 2587108 JMP, 
FORTH 





2. 


3/15/1987 Bl = BB ۹6۸7. 


SCREEN # 82 


4 ATARI DISK-I/D 

5708۷1 CONSTANT SPDRVi ላ SECTORS PER DRIVE 
BPS CONSTANT BPS ۱ BYTES/SECTOR 
ASSEMBLER 


HERE LABEL SECLN+DISK-1/0 80 # LDA, 308 STA, 8 4 LDA, 309 STA, 
' 0181-170 JMP, | | 
FORTH \ 
CODE DISK-1/0 BOT INC, BOT LDA, 381 STA, SEC INC, 
z IF 
SEC 1+ INC, 
THEN, SED LDA, 309 STA, SEC 1+ LDA, 
388 STA, BOT 4 + LDA, 304 STA, BOT 5 + LDA, 305 STA, 
31 # LDA, 300 STA, * TOUT LDA, 306 STA, 
XSAVE STX, E459 JSR, XSAVE LDX, INX, INX, 303 LDA, ፤ stat STA, 
20۳710 JMB, END-CODE 





SCREEN # 84 
\ CONT. 


5۵ VARIABLE ۷ 

FF VARIABLE TOUT 

FF CONSTANT SECTIME 
8 VARIABLE stat \ STATUS OF LAST 1/0 

à VARIABLE DRIVE \ PHYSICAL DRIVE 8, 1, 2, 3 


: R/W-SEES ) ADDRASTART SECACDUNTAN == ን 
SECTIME TOUT ! 
SWAP 25WAP DUP IR ROT + R} 
DO DUP 1 ROT 
IF DRIVE 8 SECRD ELSE DRIVE 8 SECWT 
THEN 


stat CB 7F ) IF stat CR DISK-ERROR ۱ LEAVE THEN 
BPS + LOOP 20808 ; 


04/24/84 


ໄ WRITE COMMAND - DEFAULT NO VERIFY 
\ TIME OUT VALUE 
\ SECTOR 1/0 TIME DUT 





SCREEN # 86 


۱ ATARI CIO INTERFACE 

HERE LABEL "K" ASCII K C, EOL E, 
HERE LABEL "E" ASCII E £, EOL C, 

N HERE LABEL "P" ASCII P C, EOL ເ, 
۱ HERE LABEL "S" ASCII C, EOL C, 
ASSEMBLER 


HERE LABEL SETDEV 4 
.8 ASL, .በ ASL, .8 ng 


SL, ( N,NHSIOCB N+2=DEVz$iQ ) 
N 2 + STR, CLO, 40 T 


TA, ) CALL THIS ROUTINE FIRST! ) 


HERE LABEL CIO XSAVE 
DEX, DEX, BOT STA, 
BOT 1+ STA, RTS, 


SË JSR, XSAVE LDX, 
Y, TYA, 


SCREEN # 88 


\ CONT. 

CODE CIO-CALL1 ເ ARG\COMD\DEV4 — DATA ( 
BOT LDA, SETDEV JSR, 8 # LDA, 8 8 LDY, N (۷ STA, INY, 
N ንኛ STA, INX, INX, SETCOMD JSR, BOT LDA, INX, INX, 
CIO JSR, NEXT JMP, END-CODE 


CODE CIO-CALL2 € COMD\DEV\AUXI\AUX2\"K" — DATA ) 
BOT 6 + LDA, SETDEV JSR, SETBUFF JSR, SETAUXS JSR, 
SETRUX1 JSR, INX, INX, SETCOMD JSR, CIO JSR, NEXT JWP, 
END-CODE 

:5 (PRODUCT) 

CODE CIO-CALL3 ( LENG\BUFF\COMDWDEV -- > 
BOT LDA, INX, INX, SETDEV JSR, SETCOMD JSR, 

SETBUFF JSR, SETLENG JSR, 
CIO JSR, POP JMP, END-CODE 


KOSXX.SUR Dated ሯ/134-፥/ 132657 


SCREEN # 89 


ໄ CONT. 
: XID CIO-CALLe DROP ; 


: OPEN (8 (8 ور‎ (8 3 ፳ን جم‎ RY ክን XIO 5 ( YUK! ) 
: CLOSS à C ROT CIO-CALLi DROP ; 
: CPUT BB SWAP CID-CALLi DROP ; ( DATA\DEV -- ) 
55 (PRODUCT) 
: CGET 8 7 ROT CIO-CALLÍ ; ( DEV -- DATA ) 
: STATUS 8 D ROT ር10-ርቪ11 DROP stat Cë : 
: NGET 7 SWAP CIO-CALL3 ; ( LENG\ADDR\DEV -- 
: NPUT ፪ SWAP 10-083 ; ( LENG\ADDR\DEV — 
ໄ RECORD 1/0 - TERMINATED BY EOL E 155 ] 
: RGET 3 SWAP CIO-CALLS ፣ ( LENG\ADDR\DEV — 
: REUT 9 SWAP CIO-CALLS ; ( LENG\ADDRADEV ፦፦ 


SCREEN # 931 


:S(PRODUCT) ۱ TERMINAL 1/0 

à TARGET-WIDTH ໄ HEADERLESS WORDS 

: (CR) EOL EDEV 8 CPUT ; 

: (KEY) KEYDEV 8 CGET DUP EDL = IF DROP 8 
ELSE KEYMASK B AND THEN ; 

: (EMIT) KEYMASK ສ AND EDEV 8 CPUT OUT 1+! ; 

: (OTERMINGL) PFL C8 iC = DUP IF FF ፎር C! THEN ; 

: TYPE! -DUP IF SWAP EDEV të NPUT ELSE DROP THEN : 

: EXPECTi SWAP DUP (8 EDEV 8 RGET BL R> EDEV 8 10 + 
348 + 8 + 1- ۱ : 

iF TARGET-WIDTH 

: /KEY/ (KEY) ; 


SCREEN # 3 


SCREEN # 95 


Printed 


“ሐመም s 


9/15/1387 89 = 96 ٢ SER 


SCREEN # 792 


\ TERMINAL 1/0 display 
i CONSTANT keydev Y cold start values 
@ CONSTANT edev 
ZF VARIABLE KEYMASK 
keydev VARIABLE KEYDEV 
edev VARIABLE EDEV 


É 
Ë, ላ LEFT MARGIN 
Ë, A RIBHT MARGIN 
C, ໄ LUMINANCE WHITE 

Ce C, ໄ BACKGROUND DK GREEN 
C2 E, ላ BORDER DK GREEN 
CONSTANT disp 


: display disp DUP ወ 52 DD 2+ 8 اك‎ ! 4 + Ce 2C8 ር! ; 


SCREEN 4 7 


ໄ RTRRI MISC. 82/29/84 
: BREAK- “ዮዮ 18 Lë 7F AND DUP 18 ር! DE ር! ; 
: BREAK-ON ; X 10 ER 88 OR DUB ti C' ع020‎ ር! 


` Kk LINES MARKED WITH ( XDELK ) SHOULD BE REMOVED FOR PRODUCT 
B TORGET-WIDTH 





ኣዞ ፤ ¿TITLE CR ." Electronic Arts" CR REVISION ; { *DEL* ) 
: INIT. MACHINE 8 8 DD I CLOSE LOOP 
keydev DUP KEYDEV ! 4 à "A" OPEN 
edev DUP EDEV : BL d "E" OPEN display 
ኣቦ 265 @ DUP ' LIMIT | ( il ) 
ኣዞ NSCR HDBT # - ፣ FIRST ! FIRST USE ۲ FIRST PREV ١ ) &DELX ) 
ኣዞ EMPTY-BUFFERS 80 ( #DELe ) 


BRERK-DFF ; x 
iF TARSET-WIDTH 


SCREEN # 34 





SCREEN 4 96 
x 
| 


K&5XX. SCR Dated 2/14/1987 Printed 


SCREEN # 7 


SCREEN $ 99 


SCREEN # imi 


SCREEN # 133 





3/15/1987 97 — 104 K65XX. SCR 


SCREEN # 98 


SCREEN # 122 


SCREEN # ie 


SCREEN # 184 


ໄ RWTS TRBLE 

à TARGET-WIDTH 
HERE LABEL DET DEVILE TYPE 

PHASES PER TRACK 
MOTOR DN TiME COUNT 


[ne e 


rt 
= 
co 
- EA 
سے‎ ሠ” — 


HERE LABEL 108 TABLE TYPE 

SLOT 5 $10 

DRIVE ND. 

VOLUME NO. 

TRACK ND. 

SECTOR ND. 

ADDRESS DF DET 

R/W BUFFER ADDRESS 


= 
` A VR ብ Ú هه‎ 


4 

“ብ 
ساب‎ MOONS 
سے‎ ሠ” ሠ” ሠ” ሠ” ضر‎ ሠ” سے‎ 


Che‏ سم E)‏ هئ هتد ເ!‏ و 





KS5XX. SER Dated 2/14/13997 Printed 3/15/1987 135 一 112 K65XX. SCR 


SCREEN # 1125 SCREEN + 106 

ໄ CONT. ۱ DISK VARIABLES & CONSTANTS 

8 با‎ A NOT USED 8508 CONSTANT RWIS 

8 با‎ N PARTIAL SECTOR BYTE COUNT 

۵ C, ໄ COMMAND CODE ir TARGET-WIDTH 

H ር, N RETURN CODE 1 VARIABLE ۷ 

۵ ہا‎ \ VOLUME NO. DF LAST ACCESS 0 VARIABLE DRIVE 

68 با‎ ໄ SLOT # 18 DF LAST ACCESS 0 VARIABLE TRACK 

1 با‎ \ DRIVE NO. OF LAST ACCESS ፀ VARIABLE SECTOR 
HERE 3 15 C C, ë ہا‎ LABEL ۵ 


24 

HERE 58 ር, 58 C, ፅፀ C, 40 C, LABEL SLOTS 8 TARGET-WIDTH 
1 CONSTANT 71 
230. CONSTANT 1 
108 CONSTANT BPS 


SCREEN + 107 SCREEN # 128 
X DISK-1/0 \ CONT. 
: SEC-READ 1 DISK-I/D ; 
CODE DISK-1/0 DISK-ERROR LDA, d= ເ COMMAND — ) : SEC-WRITE 2 DISK-1/0 ; 
IF, XSAVE STX, BOT LDA, 108 ፀር + STA, 
108 OFF AND # LDY, 108 ) ( OFF AND 8 LDA, CODE SET-DRIVE DRIVE LDY, 38۷85 ,Y LDA, 108 2+ STA, 
IDB LSB $ LDY, JOB MSB # LDA SLOTS ! LDA, 108 i+ STA, NEXT JME, END-CODE 
RWTS 185 + JSR, 8 4 LDY, 48 STY, CS 
IF, 108 0D + LDA, 28 # CMP, à= ነ IGNORE VOLUME CODE SET-10 8 4 LDY, 108 88 + STY, 108 3 + STY, 
IF, 8 # LDA, THEN, X MISMATCH TRACK LDA, IDB 4 + STA, SECTOR LDA, IOB 5 + STA, 
DISK-ERROR STA, DISK-ERROR i+ STY, THEN, USE LDA, 10B 8 + STA, USE i+ LDA, 108 9 + STA, 
108 1+ LDA, 108 OF + STA, IDB 2+ LDA, IOB 18 + STA, NEXT JMË, END-CODE 
108 5 + DEC, 108 9 + DEC, XSAVE LDX, 


THEN, POP JMP, END-CODE 
iF TARGET-WIDTH 


SCREEN # 103 SCREEN + i118 
ໄ T&SCALC (R/W) 898ا‎ DRI FORMAT  (QUIESCE?> 01/24/84 5 
: T&SCALC 508۷1 MOD MXDRV ይ MIN DRIVE ! ET-DRIVE 


SPT1 MOD TRACK ! SECTOR ! ; 


(R/W) USE 8 ነጸ SWAP SEC/BLK # 3 + ROT 300 + USE ! 
T&SCALC BET-iD 4 Y ROT 

IF DO SEC-RERD LOOP 

ELSE DO SEC-WRITE LOOP THEN RR USE ! + 


ኣዞ ; DRO OFFSET à! DRIVE Qi SET-DRIVE ; 

ኣዞ : 081 ፀር OFFSET ١ DRIVE 1! SET-DRIVE ; 

: FORMAT DRIVE B +R DRIVE ! SET-DRIVE SET-10 4 DISK-1/0 
8( DRIVE ! SET-DRIVE SET-IO ; 


: (DUIESCE) ; 


SCREEN # 111 SCREEN # 112 











ጻይ=3 3. SCR Dated 2/14/1987 


A 


SCREEN # 113 
TERMINAL 1/D 


ASSEMBLER HERE COB2 BIT, RTS 
HERE ۳083 BIT, ۳883 BIT, RTS, 

FORTH و‎ TARBET-WIDTH 

CODE (EMT) 

(ROM) JSR, BOT LDA, FDED JSR, (-ROM) JSR, POP JMP, END-CODE 


(EMIT) 88 DR (EMT) OUT 1+۱ ; 


:5 (PRODUCT) 


CDDE (KY) BEBIN 


PUSHÜQ JMP, END-CODE 


፡ (TERMINAL? 00208 CE 98 = 


IF (KY) DRÜP TRUE ELSE FRLSE THEN 


d 


CODO LDA, 8) UNTIL, ۲818 BIT, 


CONST 
CONST 


Printed 


( 01/24/84 
ANT (+R0M) 
ANT (-ROM) 


: (KEY? (KY) DUP 88 = IF DROP DE THEN DUP 8D = IF DROP 2D 


\ 


THEN 7F AND ; 


SCREEN # 115 
APPLE MISC. 


01/26/84 


0000 CONSTANT RSRV ۱ MEMORY TD RESERVE ABOVE DISK BUFFERS 


: 7118 FBB3-C@ 6 =; 


PR ( SLOT - ) -DUP IF Cà + ( ) 


à VARIABLE #8 


8 


28 E 5 CRI-C/L 3 LITERAL ! 
TARGET-WIDTH 


CODE FBBS-C® (+ROM) JSR, FEBS LDA, 


END-CODE 


C851 ርይ DROP ( TEXT PAGE IN ን AP 


FDFO 35 ! FD1B 38 ! ( UNHOOK DOS) 


iF TARGET-WIDTH 


SCREEN #137 


: HR588CDL 211 CIE Lë 88 = AND ; 


ELSE FDF@ THEN 36 ! ; 


80880 3 PR# 58 ፤ ፤ CRT-C/L I LITERAL ' SPACE FF 788 ር! ; 
40 780 8 IF 11 EMIT iB EMIT ENDIF 

à Dos 
2 2; 


(-ROM) JSR, PU 


ኣዞ ፤ „TITLE CR ." ELECTRONIC ARTS" CR REVISION ; 
INIT. MACHINE DISK-ERROR Q: ኣዞ EM RSRV = DUP ! LIMIT ! 
NSCR HDBT * - ! FIRST ! 
۸598000 IF  BOCDL ENDIF ; 


SHOA JMP, 


03/23/84 


ໄ APPLE EQUATES 

X ZERO PAGE ASSIGNENTS 

ዉር EQU 1811-598 ໄ INITIAL PARAMETER STACK. 

0۵01 EBU አ X ZERD PAGE WORK SPACE 

aDJ EQU IP ໄ INTERPRETER POINTER. 

UDC EBU ዘ X WORK REGISTER, CONTAINS CODE FIELD POINTER, 
DE ERU UP \ USER POINTER 

BER EQU XSAVE ٢ STORAGE SPACE FOR (X). 


132 EDU INIT-TIB ໄ INITIAL TERMINAL INPUT ۰ 
1۳۳ EDU 1811-88 Y INITIAL RETURN STACK. 


8 
8 


EQU BSIN ໄ BACKSPACE CHARACTER 


EQU BSOUT ላ " 


SCREEN # 119 


RETURNED 
ENT BY 


BY KEY 


EMIT 


LES‏ 1۶7 ل رت1 مت 


SCREEN # 1 


ໄ CONT. 
: (CR? QD EMIT OUT Qi ፤ 


CODE (EXPECT1) XSAVE STK, (+ 


= LED RESA 7 


14 


01/24/84 


: 5 (PRODUCT) 
ROM) JSR, FDGF JSR, TXA, PHA, INX, 


BEGIN, 1FF „X LDA, 7F 8 AND, 1۳۳ ,X STA, DEX, d= UNTIL, 

(-ROM) JSR, PLA, XSAVE LDX, BOT STA, NEXT JMË, END-CODE 
: EXPECT1 2DUP BL FILL DUP (EXPECT) 

MIN 2DUP IR 200 SWAP R) CMOVE + {+ ຄູ! ; 


CODE (TYPE1) XSRVE STX, SEC LDA, N STR, SEC 1+ LDA, N i+ STA, 


BOT LDA, TAX, BEGIN 


NY LDA, 88 4 ORA, 


(+ROM) JSR, FDED JSR, (-ROM) JSR, INY, DEX, @= UNTIL, 
XSAVE LDX, POPTWD JMP, END-CODE 
: TYPE DUP ፀን IF DUP 100 ( IF (TYPE1) ELSE TYPEO THEN 


ELSE ¿DROP THEN ; 


۱ 3100 HERE - ALLOT ` X مهم‎ HACK FOR FLOATING POINT AT 8 
iF TARGET-WIDTH : /KEY/ (KEY) ; 


SCREEN # 1 


SCREEN # i 


ໄ CONT. 

10 EQU SPTI 
234 EDU 5008 
100 EGU BPS 

۵ EDU DBH 
488 EDU KBBUF 

e EDU DBT 

ë EQU NSCR 


DBH KBBUF DET + + EGU HDBT 


NSCR 400 # KBBUF / EQU NBUF 
EM HDBT NBUF + - EBU BUFI 


SCREEN # 1 


ໄ COMMODORE 64 EBURTES 
ነ ZERO PASE 759 


is 


18 


ሠ” we "መ — سے‎ ມ 


መ” ሠ” سے‎ 


2 


SECTORS/ TRACK 

SECTORS/DRIVE 

BYTES/SECTOR 

SIZE OF BUFFER HEAD 

SIZE OF BUFFER 

SIZE OF BUFFER TAIL 

NO. OF RESIDENT SCREENS 
HEAD + BUFFER + TAIL 

NO. OF DISK BUFFERS 

ADDRESS OF FIRST DISK BUFFER 


SO JUNSSSEH 


AGE EDU INIT-58 ໄ INITIAL PARAMETER STACK. 

8718 EDU አ X ZERO PAGE WORK SPALE 

GJE EQU IP ໄ INTERPRETER POINTER. 

081 EQU ዘ ໄ WORK REGISTER, CONTAINS CODE FIELD POINTER. 
۵83 EGU UP \ USER POINTER 
885 EDU XSAVE ٢ STORAGE SPACE FOR (X), 


100 EQU INIT-TIB A INITIAL TERMINAL INPUT BUFFER, 
IFF EQU INIT-RÀ ໄ INITIAL RETURN STACK. 


OB EQU EDL ໄ END OF LINE CHR RETURNED BY CID 


14 EDU BSIN 
14 EQU BSDUT ١ " 


መ” 


BACKSRACE CHARACTER RETURNED BY KEY 


" SENT BY EMIT 


HOSXX. SER Dated 2/14/1987 Printed 5/15/1987 121 — 128 K65XX.SCR 


SCREEN # 121 SCREEN # 122 
N CONT. ١ E64 (+05) روم‎ KERNAL CALLS 
07 CODE (+05) PHA, SEI, 82 # LDA, 1 STA, CLI, PLA, RTS, END-CODE 
288 EDU 1 X SECTORS/DRIVE CODE (-08) PHA, SEI, 0D 8 LDA, 1 STA, CLI, PLA, RTS, END-CODE 
100 EQU BPS \ BYTES/SECTOR ASSEMBLER | 
2 EQU DBH SIZE DF BUFFER HERD HERE LABEL SETNAM# ١ (405) JSR, FEED JSR, ፤ (-05) JWP, 
488 EDU KBBUF X SIZE OF BUFFER HERE LABEL SETLFS# ' (+05) JSR, FFBA JSR, ፤ (-05) JMP, 
2 EDU DBT SIZE OF BUFFER TAIL HERE LABEL OPEN# —' (+05) JSR, ۳۳0۵ JSR, ' )-05( JMP, 
07 EDU NSCR ۱ NO. OF RESIDENT SCREENS HERE LABEL CLOSE# ۲ (405) JSR, FFC3 JSR, ' (-05) JMP, 
HERE LABEL CHKOUT# ۲ (+05) JSR, ۳۳۲9 JSR, ፤ (-05) JMP, 
DBH KBBUF DET + + EGU HDBT ነ HEAD + BUFFER + TAIL HERE LABEL CHKINË ፤ (+05) JSR, 2۳۳۵ JSR, ፤ [-05) JMP, 
NSCR 400 + KBBUF / EDU NBUF ነ NO, OF DISK BUFFERS HERE LABEL GETINË " (+05) JSR, FFE4 JSR, * (-05) JMP, 
EM HDBT NBUF + ~ EBU BUFL — ۱ ADDRESS OF FIRST DISK BUFFER HERE LABEL CHRÜUTR * (405) JSR, FFDe JSR, ፤ (-05) JWP, 
HERE LABEL CHRINË 1 (+05) JSR, FFCF JSR, * (-08) JMP, 
HERE LABEL READST# ١ (+05) JSR, FFB7 JSR, ' (-05) JMP, 
HERE LABEL STOPË 6 ISR, FFEi JSR, * (-05) JMP, FORTH 


(+05) JSR, ເ! : ۱ 
X HERE LABEL CLALL# ۱ (+05) JSR, FFE? JSR, ۲ (-05) JMP, FORTH 








SCREEN # 123 SCREEN # 124 
\ CONT. READST CALL 05/07/84 ነ CONT. OPEN SETNAM 56 
CODE READST READST# JSR, PUSHOA JMP, END-CODE 00 TARGET-WIDTH 
CODE CALL ( A X Y ADR -- CARRY/ACC ) CODE (SETNAM) ( NAM LEN — ) 
à 4 LDA, SETUP JSR, XSAVE STX, 4C # LDA, N 1 - STA, 2 $ LDA, 8 # LDY, SETUP JSR, XSAVE STX, 
N 2+ LDY, N 4 + LDX, N 6 + LDA, CLC, N LDA, N 2+ LDX, N 3 + LDY, 
١ (409) JSR, N 1 - JSR, ' (-08) JSR CLE, SETNAMË JSR, XSAVE LDX, RTS, END-CODE 
HERE LABEL LDXPCA (LOAD X PUSH CARRY ACC. ) CODE (SETLFS) ( LFN DEV SA -- ) 
XSAVE LDX, 3 $ LDA, 8 8 LDY, SETUP JSR, XSAVE STX, 
HERE LABEL PUSHER ເ PUSH CARRY ACC. ) N LDY, N 2+ LDX, N 4 + LDA, 
PHA, 8 # LOA, .A ROL, PUSH JMP, END-CODE CLE, SETLFS# JSR, XSAVE LDX, RTS, END-CODE 
sS{PRODUCT) : CGET ( LF -- BYTE ) (CHAI) ?ECODE (GET) ; 1۳ TARGET-WIDTH 
: (BET) BEGIN GETIN 8 GREADSTO= IF 1 THEN UNTIL ; CODE OPEN ( LF DEV SA NAM LEN — CODE ) 
: NPUT ( N ADDR LF -- ) (CHKD) ?ECODE ' (SETNAM) JSR, * (SETLFS) JSR, OPEN# JSR, 
SWAP 8 DO DUP I + CR KEYMASK C8 AND (PUT) LOOP DROP ې‎ LDXPCR JMP, END-CODE 
: NGET ( N ADDR LF -- ) (CHKI) ?ECODE CODE SETNAM ໄ NAM LEN — )  ' (SETNAM) JSR, NEXT JMP, END-CODE 
(CHAI) ?ECODE SWAP à DO (BET) OVER I +E! LODP DROP ; CODE SETLES ( LF DEV SA -- ) ۰ (SETLFS) JSR, NEXT JMP, END-CODE 
SCREEN 4 5 SCREEN # 126 
\ CONT. CLOSE 82/18/84 — X CONT. CBET CPUT NPUT NGET 06/15/84 
CODE CLOSE ເ LFN -- CODE ) ۱ ##TEMO## 88 TARGET-WIDTH x 
BOT LDA, XSAVE STX, CLOSER JSR, CODE ¿READSTO= ( FOR SPEED ) READST# JSR, BOT AND, B= IF, 
HERE LABEL XPUTCA i 4 LDA, ELSE, 8 # LDA, THEN, BOT STA, NEXT JMP, END-CODE 
XSAVE LDX, PHA, 8 # LDA, .A ROL, PUT JMP, END-CODE CODE (CHRO) BOT LDA, CHROUT# JSR, PUSHEA JMË, END-CODE 
۱ CODE CEALL ( CLOSE ALL ) : (PUT) BEGIN (CHRD) (?ECODE) à RREADST@= UNTIL DROP ; x 
۱ XSAVE STX, CLALL# JSR, XSAVE LDX, NEXT JMP, END-CODE CODE BETIN 
፡ OECODE) AT DROP; Y cf. scr 12 XSAVE STX, BETIN# JSR, XSAVE LDX, PUSHOA JMD, END-CODE x 
NP 780010 ነ iF TARGET-WIDTH 0 VARIABLE PUTERR ١ TO TEST THE WATERS 
20 TARGET-WIDTH : CPUT ( Char LFN -- ) 
CODE (CHKO) XSAVE STX, BOT LDA, TAX, CHKOUT# JSR, OVER ACR = IF (CHKO) DUP MSH ነ CH STAT ع‎ 
XBUTEA JMP, END-CODE IF PUTERR ١ DROP :5 THEN 
:5 (PRODUCT) THEN 
CODE (CHKI) XSAVE STX, BOT LDA, TAX, CHKIN# JSR, DROP (PUT) + 
XPUTCA JMP, END-CODE :5 : CPUT (CHKO) DUP MSB IF PUTERR ! DROP ELSE DROP (PUT) THEN , 
iF TARGET-WIDTH 
SCREEN # 127 SCREEN # 128 x 
\ C64 0 OPENDRIVE CLDSEDRIVE 02/09/84 ነ CONT. MORE KERNAL CALLS FOR SERIAL ID x 
SPDRVi CONSTANT SPDRVI ላ SECTORS PER DRIVE 00 TARGET-WIDTH x 
BPS CONSTANT BPS ኒነ BYTES/SECTDR ASSEMBLER 
à VARIABLE DRIVE \ PHYSICAL DRIVE B, 1, 2, 3 HERE LABEL TALK ፤ (408) JSR, FFBA JSR, ۲ (-DS) JMP, x 
dë TARGET-WIDTH HERE LABEL UNTLK  ' (405) JSR, FFRB JSR, 1 )-05( JMP, 
i VARIABLE CTDRV ۱ NO. OF 1541'S, DEV B, 9, ... HERE LABEL TKSA 1 (+08) JSR, FF96 JSR, ' (-08) JMP, 
23 ( ASCII # ( VARIABLE "g" HERE LABEL LISTEN ' (405) JSR, FFBL JSR, * (-05) JMP 
: DISK-ERROR-: DUP IF DRIVEOK 0۱ THEN DISK-ERROR ! ; HERE LABEL UNLSN 1 (409) JSR, FFRE JSR, ' (-08) JMP, 
: IDECODE DUP MSB IF LSB DISK-ERROR-! ELSE DROP THEN ; HERE LABEL SECOND ፤ (+05) JSR, FF93 JSR, ፤ (-08) JMP, 
+ OPENDRIVE ເ N -- ) OF OVER 8 + OF ۵ 8 OPEN DECODE HERE LABEL ACPTR ٢ (409) JSR, FFAS JSR, ፤ (-05) JMP, 
4 SWAP 8 + 4 "$" 1 OPEN DECODE ; HERE LABEL CIOUT  ' (+05) JSR, FFAA JSR, ۱ (-08) JMP, 
: CLOSEDRIVE ( -- ) 4 CLOSE 2DECODE OF CLOSE ?DECODE ; HERE LABEL CLRCHNE ፤ (+08) JSR, FFCC JSR, * (-05) JMP, 
iF TARGET-WIDTH FORTH x 
DRB OFFSET Ø! ; ፥ 08188 OFFSET ! ; : DRIVES CTDRV ! 1 iF TARGET-WIDTH x 


: S (PRODUCT) : JECODE DUP FF ን OVER 1FB © AND IF 
." D.S. ERROR " LSB . QUIT ELSE DROP THEN ; 








KOSXX. SCR 





Dated 2/14/1987 Printed 


SCREEN # 129 


\ CONT. DERR & DISK ID SUPPORT 
Ba TARGET-WIDTH 
CODE DERR XSAVE STX, 
OF + LDX, CHKIN# JSR, BETIN# JSR, PHA, CLRCHN& JSR, PLA, 
OF # AND, XSAVE LDX, PUSHOA JMP, END-CODE 
X HERE 0D ALLOT CONSTANT ERR 
CODE DEV.A CLC, 08 4 LDA, 1 DRIVE ADC, RTS, END-CODE 
X CODE DERR XSAVE STX, * DEV.A JSR, TALK JSR, Er # LDA, 1488 JSR 
N BEGIN, ACPTR JSR, ERR ,Y STA, INY, OD 8 CMP, de UNTIL, 
X UNTLK JSR, ERR LDA, OF $ AND, XSAVE LDX, PUSHOA JMP, END-CODE 
CODE PUTCMD ( NAME LEN ን 2 # LDA, SETUP JSR, 
1 DEV.A JSR, LISTEN JSR, 
GF # LDA, SECOND JSR, 
BEGIN, N 2 + لا(‎ LDA, CIOUT JSR, INY, N CRY, @= UNTIL, 
UNLSN JSR, NEXT JMP, END-CODE 
1F TARGET-WIDTH 


SCREEN # 131 


۱ CONT. — 826-68 
ነ C/MDD WORKS FOR 15 BIT N, 7 BIT D, AND 8 BIT 8. 210 USEC. 
CODE C/MOD ( N BD - BR BG ን BOT LDA, N 1 + STA, 

8 # LDY, SEC LDA, N STA, SEC i+ LDA, 

BEGIN, N ASL, .A ROL, N 1 + CMP, 

CS IF, Ni + SBC, N INC, THEN, 

DEY, @= UNTIL, 

BOT 1 + STY, SEC 1 + STY, 

SEC STA, N LDA, BOT STA, NEXT JMP, END-CODE 
2 CONSTANT DIRHIDE ໄ # DIRECTORY SECTORS ON TRACK 18 TD HIDE 
: SEC-)T4S ( SEC - T SEC ( 

DUP 165 ( IF 15 C/MDD i+ ELSE DIRHIDE + 

DUP 1ER ( IF 165 - 13 C/MOD 12 + ELSE 

DUP 256 ( IF 156 - 12 C/MOD 19 + ELSE 

256 - 11 C/MOD iF + 
THEN THEN THEN SWAP ; 


SCREEN # 133 


ໄ CONT, MOUNT 
: SECRD ( BUF SEC ) 
DISM-ERROR 8 IF 2DRÜP ELSE T&S-ROMD DERR SWAP OVER 8= 
IF B-P BETBUF ELSE DROP THEN DISK-ERROR-! THEN ; 
: SECWT ( BUF SEC ( 
DISK-ERROR 8 IF 2DRDP ELSE 
SWAP B-P PUTBUF T&S-WDMD DERR DISK-ERROR-! THEN ነ 
û VARIABLE DRIVEDK : (QUIESCE) DRIVEDK à ; 
49 VARIABLE "I" 
1F TARGET-WIDTH 
: MOUNT ( INIT ALL DRIVES ን DRIVE ው 4 CLOSE DROP 4 CTDRV ! 
e ፀ DO CTDRV 8 8 DO 1 DRIVE ! BF CLOSE DROP 
QF û 1 + OF "I" 1 OPEN FF > IF I CTDRV ۲ LEAVE THEN 
or CLOSE DROP LOOP LOOP 
CTDRY ë ۵ DD i OPENDRIVE CLOSEDRIVE LDDP 
DRIVE ይ! DRIVEOK i! DRIVE ! ; 


SCREEN # 135 


ໄ £64 DISPLAY 


03 VARIABLE EDEV 
7۳ VARIABLE 51 


82/89784 


HERE 

1 Ë, ໄ CHARACTER WHITE 

& ር, A BACKGROUND DK. BLUE 
6 C. \ BORDER — DK, BLUE 
CONSTANT DISP 
: DISPLAY DISP DUP @ 286 ር! DUP i+ Cë 0021 اع‎ 2+ ር8 0828 اع‎ ; 


à TARGET-WIDTH 

: SCRON EDEV CB د‎ à à à OPEN (ECDDE) ; 
: SCROFF EDEV ርይ CLOSE (?ECODE) ; 

iF TARGET-WIDTH 





KOSAX. SCR‏ 136 < 129 ?1738 رت 1 رت 
SCREEN # 130‏ 
ໄ CONT. PUTBUF GETEUF‏ 


00 TARGET-WIDTH 


CODE PUTBUF ( 8008 ) 1 8 LDA, SETUP JSR, 

1 DEV.A JSR, LISTEN JSR, 

64 # LDA, SECOND JSR, 

BEGIN, N ንኛ LDA, CIOUT JSR, INY, عق‎ UNTIL, 
UNLSN JSR, NEXT JMP, END-CODE 


CODE BETBUF ( ADDR ) 1 # LDA, SETUP JSR, XSAVE STX, 
' DEV.A JSR, TALK JSR, 

64 # LDA, TASA JSR, 

BEGIN, ACPTR JSR, N (۷ STA, INY, @= UNTIL, 

UNTLK JSR, XSAVE LDX, NEXT JMP, END-CODE 


1 TARGET-WIDTH 


SCREEN # 132 


۱ CONT. 85085 SECWT 
bë TARGET-WIDTH ነ DRIVE IS IMPLICIT IN NEXT COMMANDS 
HERE 55 C, 32 C, 38 C, 34 C, 20 C, 30 ር, 2C C, 54 C, 
54 D, 20 ር, 53 C, 53 ር, CONSTANT UCMD 
: 2016 88 C/MOD 30 + SWAP 38 +; 
: URCMD ) 1 S 8/8 - AN) 32 SWAP - UCMD 1 + ር! 
2018 UCMD 88 + ር! UCMD QA + ር! 
2015 UCMD 8 + اع‎ UCMD 87 + اع‎ UCMD eC ; 
HERE 42 C, 20 ር, 58 C, 38 C, 34 C, 2C C, 38 C, CONSTANT B-PCMD 
: B-P B-PEMD 7 PUTCMD ; 
: T&S-RCMD SEC-)T&S 1 0880 PUTCMD ; 
: TÀS-WCMD SEC-)T&S 8 URCMD PUTCMD 5 


SCREEN # 134 


V CONT.  ክ/ዙ፡5ር8 (R/W) 05/07/84 
@ TARGET-WIDTH 
: (R/W-BELS) € ADDRASEC\CT\N — ን DRIVEOK ü @= IF MOUNT THEN 
DRIVE ອ OPENDRIVE SWAP 2SWAP DUP <8 ROT + R) 
DO app I ROT € BREDK-UN ) IF SECRD ELSE SECWT THEN BPS + 
LOOP 2DROP CLOSEDRIVE ; 
iF TARGET-WIDTH : R/W-SECS (R/W-SECS) ; à TARGET-WIDTH 
፡ ((R/W)} 8 CSEC/BLK * ) 2x 81 
5۶08۷1 /MOD DRIVE ١ SEC/BLK R> R/W-SELS ; 
፡ (R/W) )፳ 2DUP R ((R/W)) R) DISK-ERROR 8 IF 
à DISK-ERROR-" ((8/8)) ELSE 2DROP DROP THEN ; 
፡ (NCMD) , * NO:FORMATTED DISK,ER" ; 
iF TARGET-WIDTH 
: FORMAT OF SWAP B + OF 
[ ! (NCMD) 2+ ) LITERAL COUNT OPEN 2DECODE 
QF CLOSE DECODE ; 


SCREEN ٭‎ 1.56 


۱ جوع‎ TERMINAL 1/0 02/07/84 
: (EMIT? KEYMASK 8 AND SCRON EDEV Ce CPUT DUT i+! SCROFF ; 
: (CR) BD EMIT ; — :5(PRÜDUCT) 
፡ /KEY/ 99 CB Q 99 ር! BEGIN GETIN -DUP UNTIL SWAP 99 ር! ; 
à TARGET-WIDTH ነ HEADERLESS WORDS 
CODE KEY1 99 LDA, 99 STY, TAY, XSAVE STX, CHRIN# JSR, XSAVE LDX, 
99 STY, KEYMASK AND, PËSHBA JMP, END-CODE 
: (KEY) /KEY/ KEYMASK CB AND ; 
CODE (TERMINAL) XSAVE STX, STOP# JSR, 
عق‎ IF, 1 8 LDA, ELSE, 8 8 LDA, THEN, 
XSAVE LDX, PUSHBA JMË, END-CODE 


: TYPE1 -DUP IF SCRON SWAP EDEV 8 NPUT SCROFF ELSE DROP THEN ; 
: EXPECT1 OVER + OVER DO KEYi DUP ع8‎ +DRIGIN 8 = IF DROP 
14 DVER 1 = DUP ክነ) 2 - + (8 - ELSE DUP 0D = IF LEAVE DROP 
BL à ELSE DUP THEN I C! 
1F TARGET-WIDTH 


I 1+ 0! THEN DROP LOOP DROP ; 








HKOSXX.SCR Dated 2/14/1987 


SCREEN # 1.57 


` DEI ຊາດາ ) 

X Lb4 DO-IRG IRB-INST 
PVC To 

CODE DD-IRD 


PHA, TXA, PHA, TYA, PHA, 
1 LDA, F is ( SAVE MEM, CONFIG 
E 8 LDA, 1 STA, (99-3 
FFER JSR, ) BUMP RTCLOCH 
FF3F JSR, ) SCAN KEYBOARD ) 
PLA, 1 STA, ( RESTORE MEM. CONFIG | 
DEOD LDA, ؛‎ CLEAR PENDING IRG 
PLA, TRY, PLA, TAX, FLA, 

HERE LABEL (RTI) 


RTI, END-CODE 


t STALL 4 ۶ 8: 

(RTI) FFFA ! (NMI ) 

۳۳۳۵ 8 ገተር ! ( RESET ) 
m en سم سم‎ adi 1 T P H 

DO-IRD FFFE ! ፤ ) IRB)‏ ؟ 


SCREEN 4$ 1.59 


: (R/W-SECS) ( ADDR\SEC\CT\N -- ) DRIVED 
OPE DRIVE 
‚RD ELSE SECWT 


ເ; 


SWAP 66 DUP (8 ROT + R) DRI 
DO cDUP 1 ROT 4 BREAK-DN ) IF 
LOOP 2080 CLOSEDRIVE ; 


VL 
cr 
3 


Printed 


SLLIS ISO, 34 ته‎ 


SCREEN # 1.58 


ໄ C64 MISC. 

VD ሀ CONSTANT RSRV 

à CONSTANT ٣۳8000 : BACIL 
AS. CART 


ማጫሩ 


(RTI) DUP Bap ' 8852 ' Cars 8 


8 TARGET-WIDTH 


CODE NOBASIC er P LDA, ۵ STA, 


| cT 

Vn TITI E FO A TCTON 

NEE ILE ER REVISION - 
re Hin wu : ۳ سور‎ PRIPA: + 

ະ INIT.MACHINE INSTOLL-IR 


DRIVEOK ۵۱ 576 
09) 203 ! _ (EM FOR ሀ 
| | 

T 


SCREEN + 140 


A, NEX 


RD DISPL 





Crass-Compi ler 
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DNF FSET 
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